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EDITORIALE 


Il software di oggi e di domani 


Mauro Boscarol 


Verso quale direzione si sta sviluppando il softwa- 
re? A guardarsi attorno, la risposta è una sola: verso 
l’intelligenza artificiale. 

Il software della prossima generazione non sarà so- 
lo in grado di trattare delle informazioni nel modo 
convenzionale che tutti conosciamo, ma sarà anche 
capace di elaborare delle conoscenze. 

Il governo giapponese ne è così convinto che ha 
dato il via all'operazione per la costruzione di un 
computer della “quinta generazione”, che disporrà di 
questo tipo di capacità. Oltre ad un alto livello tecno- 
logico (per esempio circuiti ad effetto Josephson in- 
vece dei semiconduttori classici) che garantirà una 
maggiore velocità e potenzialità, la macchina, che sa- 
rà pronta nel 1987, disporrà di tutto il software ne- 
cessario a conferirle quella che si chiama “intelli- 
genza artificiale”. 

Di che cosa si tratta? La programmazione conven- 
zionale, quella a cui tutti siamo abituati, è la pro- 
grammazione di algoritmi che danno in dettaglio il 
procedimento passo-passo per la soluzione di un pro- 
blema. Se si tratta di calcolare una funzione matema- 
tica, o elaborare delle buste paga, tutto bene. 

Ma molte attività umane, come per esempio l’in- 
venzione di dispositivi scientifici, il ragionamento, 
l’apprendimento, richiedono una certa “intelligenza”. 

Consideriamo un solo campo: l’esperienza. Prero- 
gativa di un esperto umano, di un consulente, è pren- 
dere decisioni di fronte a dati incompleti e incerti, 
facendo ragionamenti del tipo: “se...allora forse... 
ma allora...potrebbe essere...”. Questo tipo di ragio- 
namenti, non possono essere effettuati da un compu- 
ter provvisto di software tradizionale. Ci vuole una 
programmazione particolare: entriamo appunto nel 
campo dell’intelligenza artificiale. 

I programmi che riescono a condurre ragionamenti 
del tipo appena illustrato, e a trarre delle conclusio- 
ni, “consigliando” l’utente, vengono detti sistemi 
esperti. 

Un sistema esperto opera come un vero e proprio 
consulente. Fa domande circa l’argomento di cui è 
“esperto”, cercando di determinare tutti i fattori che 
costituiscono le condizioni necessarie per poter trarre 
delle conclusioni con una certa credibilità. In parole 
povere, un sistema esperto “ragiona” quasi come un 
essere umano, per arrivare ad una conclusione, una 
diagnosi, un consiglio. 


Ce ne sono già di opetanti, alcuni molto famosi. 
Uno dei primi è MYCIN, un esperto medico, svilup- 
pato a Stanford nel 1973. E un programma interatti- 
vo che assiste il medico nel raggiungere una conclu- 
sione diagnostica, ed opera sulla base di regole di la- 
voro del tipo “se...allora”. Ce ne sono altri, specializ- 
zati nelle diverse discipline (geologia, arredamento, 
chimica,...). 

Ma i sistemi esperti sono solo uno degli aspetti del- 
l’intelligenza artificiale. Ve ne sono altri, ugualmente 
interessanti: l'apprendimento, il saper giocare e bat- 
tere un avversario, il risolvere problemi e rompicapo, 
il saper dimostrare teoremi matematici, il saper inter- 
pretare i linguaggi “naturali” (inglese, italiano) piut- 
tosto che i linguaggi di programmazione, il saper au- 
toprogrammarsi, ed altri ancora. 

Può interessare l’intelligenza artificiale nel campo 
dei personal computer? 

Non sono dimensioni e potenzialità troppo ridotte 
per poter arrivare a simili risultati? A mio parere il 
fascino dell’intelligenza artificiale sta proprio qui: 
non è questione di enormi memorie, di velocità su- 
personiche o di multiprocessori, ma semplicemente 
(si fa per dire) di idee: anche una piccola macchina, 
programmata con le idee giuste, sa fare cose strabi- 
lianti. E dunque, l’intelligenza artificiale è campo che 
si apre anche alle piccole macchine, ai dilettanti, agli 
hobbysti: le sorprese e le soddisfazioni, è garantito, 
ci saranno per tutti. II 


Il prossimo numero è ..... 


Le normali rubriche e lo 
“speciale Pocket Computer”. 


Software, programmazione 


trucchi e interfacciamento 
dei piccoli calcolatori. 


««««« Un numero da non perdere! 


POSTA 


A tutti i possessori di DAI 


Voglio subito complimentarmi 
per l’ottima rivista: finalmente un 
qualcosa che si interessi solo di 
software, lasciando da parte ap- 
punto l’hardware. 

Ma veniamo al dunque. Posseg- 
go un DAI 48 K ed il sempre vali- 
do ZX81. Mi rivolgo a voi per al- 
cune delucidazioni. 

E possibile, modificando con op- 
portuni POKE le matrici relative ai 
caratteri per il video, ottenere altre 
figure premendo i tasti? Ciò mi 
permetterebbe un grosso migliora- 
mento delle capacità grafiche. La 
mia domanda si riferisce ad en- 
trambi i computer. 

Ma a proposito del DAI è mai 
possibile che un computer di tali 
prestazioni non venga assoluta- 
mente considerato dal pubblico e 
dalle riviste specializzate? E con 
questo mi rivolgo a tutti i possesso- 
ri del DAI: facciamoci sentire. 

Dove posso trovare pubblicazio- 
ni sul DAI, oltre al manuale, si in- 
tende? Ringraziandovi anticipata- 
mente e sperando di veder presto 
pubblicata questa mia, vi porgo i 
miei saluti, rinnovando i compli- 
menti alla vostra rivista, che con 
una rubrica permanente sul DAI 
sarebbe perfetta! 


Riccardo Taccia 
Livorno 


6 


Giriamo le domande a coloro che 
hanno a disposizione un DAI. Le 
risposte che riceveremo verranno 
pubblicate in questa rubrica. 


Qualcosa sul Texas, prego... 


Spett.le Redazione, 

sono un vecchio lettore di Bit e mi 
sono abbonato con piacere a Per- 
sonal Software, che trovo interes- 
sante. Nel momento in cui scrivo è 
uscito solo il n. 3 della rivista e 
aspetto con ansia i successivi per 
sapere se ci sarà un po’ di spazio 
dedicato al computer che mi sono 
comprato, il TI99/4A della Texas 
Instruments. Per tutto il 1982, an- 
no in cui ho comprato Bit regolar- 
mente tutti i mesi, questa macchina 
è stata ignorata (non so se è uscita 
la prova prima perché ho solo dei 
fascicoli sparsi) e questo mi sembra 
strano perché la Jackson collabora 
con la Texas anche per l’Enciclope- 
dia di elettronica & informatica. Mi 
farebbe piacere che in futuro Per- 
sonal Software estendesse i suoi 
programmi completi anche al 99/ 
4A e anche la rubrica “I segreti dei 
personal”, che trovo molto interes- 
sante. Ho letto sul n. 3 che vi inte- 
ressano conversioni dei vostri pro- 
grammi per altre macchine e vorrei 
sapere se ciò vale anche per il 
TI199/4A, perché se li pubblicate, 
almeno quelli che ritenete interes- 
santi, io ve li mando. 


Elio Vanneschi 
Arezzo 


Siamo estremamente interessati a 
tutto ciò che riguarda il Texas 99/ 
4A. Il nostro problema, in questo 
momento, è che la macchina ha una 
diffusione ancora limitata (se pur in 
continua espansione); da ciò deriva 
una nostra difficoltà a reperire col- 
laboratori preparati. L'abbiamo 
detto e lo ripetiamo: sollecitiamo i 


possessori di 99/4A a spedirci: (1) 
articoli sulla loro macchina, sul 
software o su qualunque altro argo- 
mento attinente o realizzato con la 
99/4A; (2) conversioni di program- 
mi già pubblicati in questa rivista; 
(3) piccole note e brevi routine per i 
nostri “Segreti dei personal”. Do- 
podiché, se il materiale ci arriva, 
sarà nostra gioia il pubblicarlo. 


Evviva il Commodore 64 


Spett.le Redazione, 

vi scrivo per complimentarmi per 
l’ottima rivista da voi realizzata e 
per fare alcune richieste. 

Penso che in molti saremmo con- 
tenti se ampliaste la rubrica 
“Raccolta di routine Basic”, in 
quanto gli esempi in essa contenuti 
sono facilmente implementabili in 
programmi scritti per qualsiasi tipo 
di personal computer, non legati 
perciò ai vari “dialetti” Basic o alle 
caratteristiche grafiche di particola- 
ri macchine. 

La seconda cosa che mi preme è 
quella di vedere pubblicati pro- 
grammi e articoli per il Commodo- 
re 64, mio da pochi giorni, e che vi 
assicuro, ha delle possibilità (spe- 
cie nel campo dei videogiochi) me- 
ravigliose! 

Infine un suggerimento: quando 
scrivete articoli per il PET/CBM o 
programmi, aggiungete le variazio- 
ni (minime d’altronde) per farli gi- 
rare sul Commodore 64. 


In questa rubrica rispondia- 
mo alle lettere di carattere ge- 
nerale. 

Scrivete a 


Personal Software 
Via Rosellini 12 
20124 Milano 


POSTA 


Sicuro che mi possiate acconten- 
tare, ringrazio in anticipo. 


Giovanni Carella 
Napoli 


Per il Commodore 64, valgono le 
stesse considerazioni fatte nella ri- 
sposta alla lettera precedente per il 
Texas 99/4A, e valide in generale 
per ogni personal di nuova produ- 
zione. E necessario un certo perio- 
do di tempo prima che siano reperi- 
bili degli “esperti” della macchina, 
proprio perché l’esperienza si fa col 
tempo. Nel frattempo, rivolgiamo 
ai possessori di Commodore 64 lo 
stesso invito fatto ai possessori di 
Texas 99/4A: aspettiamo da voi ar- 
ticoli, conversioni, e segreti, e pub- 
blicheremo tutto il materiale 
“pubblicabile” che ci arriverà. 


Conversioni ZX81-Spectrum 


Spett.le Redazione, 
tempo fa vi ho scritto per chiedervi 
delle informazioni sullo ZX81, che 
avevo da tempo deciso di acquista- 
re, ma poi ho sentito parlare del 
nuovo gioiello della Sinclair e ho 
deciso quindi di aspettare un po’ 
ed acquistare quest’ultimo, anziché 
lo ZX81. Ormai però mi sono pro- 
curato già un “sacco” di program- 
mi per lo ZX81 e, fortunatamente, 
ho letto su una rivista che questi 
andranno bene anche per lo Spec- 
trum, ma bisognerà fare alcune 
modifiche, soprattutto per quanto 
riguarda i numeri degli indirizzi dei 
byte di memoria. Ora vorrei sapere 
se c’è (e qual è) un metodo pratico 
e veloce per adattare i programmi 
dello ZX81 allo Spectrum. 
Desidererei inoltre che pubblica- 
ste un programma del gioco degli 
scacchi per lo Spectrum (16 K 
RAM), dato che non sono ancora 
riuscito a trovarlo in nessuna rivi- 
sta (nel caso che un programma di 


questo tipo fosse troppo lungo po- 
treste anche pubblicarlo a punta- 
te). 

Vorrei inoltre sapere quali sono 
le case editrici che hanno pubblica- 
to fino ad ora dei libri riguardanti 
lo ZX Spectrum (vorrei sapere l’in- 
dirizzo dello ZX User Club, che mi 
sembra che abbia a disposizione 
una vasta biblioteca di software per 
lo Spectrum). 

E per finire vorrei sapere se un 
programma di 16 K RAM per lo 
ZX81 può entrare nello Spectrum 
sempre da 16 K RAM. 


Gabriele Formaggio 
Rovigo 


P.S. Ma ogni quanti mesi esce la 
vostra splendida ed eccezionale ri- 
vista? 


La nostra rivista è mensile... a 
partire dal numero scorso. Perlo- 
meno questo è l'impegno che pren- 
diamo con i lettori e che cerchiamo 
di rispettare. I problemi di una rivi- 
sta come la nostra sono molti: arti- 
coli da leggere, programmi da pro- 
vare, listati da rifare; certe volte ca- 
pita di perdere due o tre giorni con 
un programma e poi decidere di 
buttare via tutto, perché non ne esce 
niente. 

Come vede, da questo numero, 
pubblichiamo “I segreti” dello 
Spectrum, e abbiamo in prepara- 
zione un articolo sulla conversione 
ZX81-Spectrum. Alle sue domande 
risponderemo, assieme a molte al- 
tre, in quell'articolo. 


Come programmare uno sfondo 
scorrevole? 


Spett. 
Personal Software, 

sono un ragazzo di 14 anni e pos- 
seggo da questo Natale uno ZX81 
Sinclair ed ormai vi programmo un 


po’ di tutto; dalle declinazioni di 
latino (frequento il liceo scientifi- 
co) ai più stravaganti giochi; ma, 
durante la programmazione dei 
giochi mi trovo sempre davanti lo 
stesso problema: nei giochi di mo- 
vimento come si può rendere l’idea 
di un “fondale scorrevole” che giri 
in senso orizzontale? 

Distinti saluti e complimenti per 
la splendida rivista (alla quale ho 
già provveduto ad abbonarmi!). 


Marcello Morchio 
Genova 


Noi, purtroppo, non abbiamo 
sottomano un’idea pronta. Cosa ne 
pensano i nostri lettori? 


Il teorema di Jacopini-B6hm 


Vi sarei molto grato se pubblica- 
ste la dimostrazione del teorema di 
Jacopini-Bòhm riguardante la po- 
tenza espressiva di un linguaggio 
formato solamente dalle strutture 
di sequenza e da IF...THEN...EL- 
SE e DO...UNTIL...REPEAT 
(selezione binaria € iterazione). 

Stefano De Santis 
Bresso (MI) 


Ma che domanda difficile! Il teo- 
rema di Jacopini-Bòhm (due infor- 
matici teorici dell’Università di Ro- 
ma) è uno dei risultati principali 
della “teoria” della programmazio- 
ne strutturata. La sua dimostrazio- 
ne richiede un livello di approfondi- 
mento teorico cui la nostra rivista, 
per sua natura, non può arrivare. 
Chi è interessato può vedere l’arti- 
colo originale di Jacopini e Bòhm 
“Flow diagrams, Turing machines 
and language with only two forma- 
tion rules” in Communications of 
the ACM vol. 9, n. 3, maggio 
1966. 
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Tecniche di ricerca 


Un confronto tra le 
prestazioni di tre 
tecniche di ricerca 
tabellare 


di Edward Mitchell 


no dei compiti più frequenti 
i fer cui viene usato un com- 

puter è la ricerca di dati spe- 
cifici in tabelle o liste. Le routine 
di ricerca vengono applicate a pro- 
blemi anche molto diversi tra loro, 
come elenchi telefonici elettronici, 
sistemi per inventario o per il cari- 
co/scarico di merci nelle aziende o 
nei compilatori Basic. Spesso viene 
utilizzata una semplice routine di 
ricerca sequenziale, facendo legge- 
re al programma tutta la lista o la 
tabella con un ciclo, finché non 
viene trovato il record cercato. Ma 
con l’aumentare delle dimensioni 
della tabella da meno di 50 record 
a parecchie migliaia, il tempo di ri- 
cerca aumenta vertiginosamente. 
In casi come questi, restano solo 
due alternative: acquistare un com- 
puter più veloce o trovare una tec- 
nica di ricerca più rapida. Per evi- 
denti ragioni si preferisce ricorrere 
alla seconda soluzione. 

La prima soluzione di un proble- 
ma che ci viene in mente è di rado 
la migliore. Esistono parecchi a/go- 
ritmi per esaminare una tabella che 
non sono così ovvii. Un algoritmo 
è un insieme di regole ben definite 
da seguire per risolvere un deter- 
minato problema. Da un certo 
punto di vista, un algoritmo è la 
mappa della strada che ci porta da 
un punto ad un altro. Spesso stu- 
diando attentamente la configura- 
zione geografica, possiamo trovare 
un percorso migliore. La ricerca 


sequenziale non è certo il solo si- 
stema per esaminare una tabella o 
un file su disco. Infatti, con un 
computer esistono numerosi altri 
modi per eseguire una ricerca. Due 
di questi, la ricerca binaria e il me- 
todo hashing (letteralmente “dello 
spezzatino”), verranno descritti in 
questo articolo. ì : 

Perfino la classica ricerca se- 
quenziale può essere migliorata or- 
dinando i record in modo che quel- 
li che vengono richiamati più spes- 
so appaiano all’inizio della lista. 

La fig. 1 confronta le prestazioni 
relative di questi tre metodi di ri- 
cerca. La velocità del metodo ha- 
shing è indipendente dalla lunghez- 
za della tabella. Il suo limite, inve- 
ce, appare con il progressivo riem- 
pimento della lista. 


La ricerca sequenziale 


Un metodo per esaminare una li- 
sta di nomi è leggerla dall'inizio fi- 
no a incontrare l'elemento cercato, 
oppure fino alla fine. Questa tecni- 
ca, detta ricerca sequenziale, è 
semplice sia da capire che da met- 
tere in pratica sotto forma di pro- 
gramma. Ma per una lista lunga, la 
ricerca sequenziale può costituire 
una perdita di tempo. Per esempio, 
una lista di 100 nomi richiede, in 
media, 50 confronti per ogni ricer- 
ca con esito positivo. Nel caso peg- 
giore, quando il nome cercato non 


Numero medio di confronti per la ricerca. 


È 
maraeeoni 


FLCT pasa Binaria 


Sequenziale 


4 8, 16 32:64. 128:256:512 2048 3192 32768 n 
1024 3096 16384. 65536 
Numero di Numero di Hashing 
n confronti sequenziali confronti binari 


4 da 
se — Hashing 


UL) LI LI Li La Li Li Li LI Li La ta WLW 


Figura 1. Confronto tra tre tecniche di ricerca. Il grafico mostra che il meto- 
do hashing di solito è il più veloce, necessitando di un numero di confronti 
minore sia del metodo sequenziale che di quello binario. 


esiste, dovremo esaminare tutti i 
100 termini della lista prima di aver 
esaurito tutte le possibilità. 
Consideriamo la breve lista com- 
posta di cinque nomi in fig. 2. Per 
cercare DAMIANO, dobbiamo co- 
minciare controllando il nome me- 
morizzato in N$(1). Siccome DA- 
MIANO non corrisponde al conte- 
nuto di N$(1), proseguiamo con 
N$(2). Dopo il secondo confronto, 


10 


l'algoritmo esamina N$(3) e trova 
il nome DAMIANO. 

In generale, una ricerca sequen- 
ziale con esito positivo in una lista 
di n elementi disposti a caso richie- 
de in media n/2 confronti. Il tempo 
necessario per la ricerca è diretta- 
mente proporzionale alla dimensio- 
ne n. Se n raddoppia, anche il tem- 
po medio di ricerca raddoppia. 
Una lista di 1000 nomi richiede un 


N$(1)="JENNY"|="DAMIANO"”? 


N$(2)="GIORGIO"” 
N$(3)="DAMIANO” 
N$(4)="LISA” 
N$(5)="BARBARA" 


N$(3)="DAMIANO" 
NS$S(4)="LISA” 


N$(5)="BARBARA"” 


(c) N$(1)=". 


JENNY" 
N$(2)="GIORGIO" 


N$(3)="DAMIANO"|="DAMIANO"? 


N$(4)="LISA"” 


N$(5)="BARBARA" 


Figura 2. // metodo sequenziale al- 
l’opera. Questo metodo inizia la ri- 
cerca di DAMIANO dall’inizio del- 
la lista e prosegue la lettura finché 
non trova il nome o non raggiunge 
la fine della lista. In (a) l'algoritmo 
controlla il nome in N$(1). Poiché 
N$(1) non contiene DAMIANO, la 
ricerca prosegue in N$(2) come mo- 
strato in (b) e finalmente trova DA- 
MIANO in (c). 


tempo dieci volte maggiore di una 
di 100. 

Aggiungere un nuovo nome alla 
lista è semplice. Se assumiamo N 
uguale al numero dei nomi della li- 
sta di prima, allora poniamo 
N=N+1 e mettiamo il nome nuovo 
in N$(N). L'algoritmo 1 definisce 
la ricerca di tipo sequenziale in un 
linguaggio tipo Basic. Il listato I 
propone un programma tipo per la 
ricerca sequenziale, adatto per 
ogni personal computer IBM. Tutti 
i programmi descritti in questo ar- 
ticolo dovrebbero girare su tutti i 
computer che usano il Microsoft 
Basic. 


Come si può osservare nel listato 
1, un nome viene cancellato dalla 
lista, trovando la posizione del no- 


MAX=100 
DIM N$ (MAX) 


: AGGIUNGI T(ROVA S(TAMPA C(C(ANCELLA LASCIA 
FRINT C$ 
THEN GOSUB 2 GOTO 100 


THEN GOSUE 


z GOTO 100 
THEN GOSUB 400 


GOTO 100 
THEN GOSUB 500: GOTO 100 
THEN GOSUR 600: GOTO 100 


REM SCRIVE UN NOME 
IL NOME DA AGGIUNGERE "5S$ 


GOSUB 2000 

) THEN GOSUB 1000 

THEN FRINT S$;" E° GIA” NELLA LISTA. ": RETURN 
THEN FRINT"LA TABELLA E° GIA? COMFLETA CON "sMAX; 
" NOMI": RETURN 

RETURN 
REM=-=—=<==-==-=#a 
REM ( (CA UN NOME 

INFUT"BATTI IL NOME DA CERCARE "35$ 
GOSUB 2000 

IF F=0 THEN FRINT"NON TROVATO" 
PFRINT"TROVATO IN LOCAZIONE " 
RETURN 

REM- 
REM STAMFA LA LISTA 
GOSUE 3000 

RETURN 

REM 
REM CANCELLA UN NOME 

INFUT"BATTI IL NOME DA CANCELLARE "5S$ 
GOSUB 2000 

IF F=0 THEN FRINT"NON TROVATO": 
GOSUBE 4000: FRINT"CANCELLATO" 
RETURN 
REM LASCIA 


RETURN 
RETURN 


RETURN 


REM RICERCA 
G=1i 

IF G>N THEN F 
IF _S$=N$(G) THEN F=1: 
G=6+1 

GOTO 2050 

REM 
REM STAMFA 
FOR I=i TO N 
PRINT N&(1) 
NEXT I 

FRINT 

RETURN 

REM-- 


RETURN 
RETURN 


4010. REM CANCELLAZIONE 
4020 N=N-1 

4025 IF 6=N+1 THEN RETURN 
4030 FOR I=G TON 


4040 N$(I)=N$(I+1) 
4050 NEXT I 
4060 RETURN 


Listato 1. La tecnica di ricerca sequenziale. 


me nella lista e spostando tutti i 
nomi seguenti indietro di un posto, 
e ponendo N=N-1. 

L’algoritmo 1 può essere miglio- 
rato per ridurre il numero di passi 


eseguiti nel ciclo di ricerca. Ag- 
giungiamo il passo 0: 


Poni N$(N+1)=S$ 


Togliamo il passo 2. 


Tutte le ricerche vengono ora 
fermate dopo aver raggiunto 
N$(N+1) e il tempo di esecuzione 
si riduce perché per ogni passo del 
ciclo vengono eseguite solo due 
istruzioni anziché tre. Come parte 
del passo 3, occorre verificare se 
I>N, nel qual caso l'algoritmo de- 
ve dedurre che S$ non è stato tro- 
vato. 


Miglioriamo la ricerca sequenziale 


Se certi record sono più richiesti 
di altri, è desiderabile che appaia- 
no più vicini all’inizio della lista, 
così da trovarli più rapidamente. 
Se 5 nomi in una lista di 100 sono 
cercati nel 50% delle occasioni, ha 
un senso metterli all’inizio della li- 
sta. Allora ci possiamo aspettare 
che il 50% delle ricerche vengano 
terminate entro il quinto confron- 
to. Se assumiamo che gli altri 95 
siano distribuiti casualmente, una 
ricerca con esito positivo richiederà 
in media 47 confronti, sempre me- 
glio dei 50 richiesti da una disposi- 
zione casuale. 

Visto che possiamo anche non 
sapere in anticipo con che frequen- 
za verranno cercati i nomi, questa 
tecnica viene applicata meglio per 
tabelle che possono essere aggior- 
nate per riflettere la distribuzione 
di richieste stimata. Ma usando 
una struttura dei dati chiamata /i- 
sta, è facile creare una tabella che 
ordina automaticamente i record 
secondo la frequenza di accesso 
man mano che i nomi vengono in- 
seriti o richiamati. 


La ricerca binaria 


Usando una ricerca binaria, il 
tempo necessario può diminuire, 
con l’ulteriore vantaggio che, se 
aumentiamo le dimensioni della ta- 
bella, il tempo aumenta ad un rit- 
mo minore. La ricerca binaria 
prende il nome dal modo in cui la 
tabella viene ripetutamente divisa 
in due, finché viene trovato il re- 
cord esatto o finché ciascun pezzo 
rimasto non è più ulteriormente di- 
visibile. L’algoritmo per la ricerca 


ll 


(1) ALBERTO || (1) ALBERTO 
(2) ALVISE (2) ALVISE 

(3) BARBARA || (3) BARBARA 
(4) CARLO [®) CARLO 


(1) ALBERTO 
(2) ALVISE 
(3) BARBARA 
(4) CARLO 


(1) ALBERTO 
(2) ALVISE 
(3) BARBARA 
(4) CARLO 


(5) DAMIANO || (5) DAMIANO 
(6) DARIO (6) DARIO 
(7) ENRICO (7) ENRICO 


(6) DAMIANO 
(6) DARIO 
(7) ENRICO 


(5) DAMIANO 
(6) DARIO 
[() ENRICO 


(8) ERICA (8) ERICA 

(9) GIORGIO 
(10) GIOVANNI 
(11) LISA 

(12) MICHELE 
(13) NICO 

(14) PAOLA 
(15) RICCARDO 


(0) GIORGIO 
(10) GIOVANNI 
(11) LISA 

(12) MICHELE 
(13) NICO 

(14) PAOLA 
(15) RICCARDO 


(a) (b) 


(8) ERICA 
(9) GIORGIO 
(10) GIOVANNI 
(11) LISA 

(12) MICHELE 
(13) NICO (13) NICO 

(14) PAOLA (14) PAOLA 
(15) RICCARDO (15) RICCARDO 


(8) ERICA 

(9) GIORGIO 

(10) GIOVANNI 
(11) LISA 

(12) MICHELE 


(0) (d) 


Figura 3. La ricerca binaria di ENRICO comincia dalla metà della lista. 
Poiché ENRICO è minore di ERICA, l’algoritmo scarta tutti i nomi mag- 
giori di ERICA e si concentra sulla metà superiore della lista. In (b) la 
ricerca è andata troppo indietro, così elimina tutti i nomi minori di CAR- 
LO. In (c) è ancora troppo basso, così l’indice avanza di un posto e trova 


ENRICO in (d). 


binaria richiede che i nomi siano 
ordinati secondo qualche criterio. 
Nel nostro esempio, l’ordinamento 
è alfabetico. 

Prima di entrare nei dettagli del- 
la ricerca binaria, proviamo a ese- 
guire una rapida ricerca per cerca- 
re di intuire come funziona. Invece 
di cominciare dall’inizio, partiamo 
dal centro della lista. Per localizza- 
re ENRICO nella lista di fig. 3, 
confrontiamo ENRICO con il no- 
me che appare al centro della lista, 
ERICA. Poiché ERICA è, alfabe- 
ticamente, maggiore di ENRICO, 
possiamo scartare tutta la metà 
della lista che segue ERICA, que- 
sta compresa. 

La ricerca binaria fa il suo secon- 
do tentativo controllando il nome 
che appare a metà tra l’inizio e la 
metà della lista. Confrontando 
CARLO con ENRICO, vediamo 
che la ricerca è andata troppo in- 
dietro. Possiamo eliminare allora 
tutti i nomi minori o uguali a 
CARLO. 

Esaminiamo quindi il nome a 
metà dell'intervallo tra CARLO e 
ERICA, provando con la locazione 
numero 6, DARIO. Vedendo che 
è rimasta una sola locazione da 
esaminare la ricerca binaria trova 
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ENRICO al posto 7. Per la lista di 
fig. 3, la ricerca binaria individuerà 
il nome o determinerà la sua inesi- 
stenza in quattro o meno tentativi. 
I tentativi per le ricerche con esito 
positivo in tabelle di 16 elementi 
sono in media 3: molto meno degli 
otto confronti previsti in media per 
la ricerca sequenziale. 

La ricerca binaria trova una so- 
luzione con così pochi tentativi 
perché divide iteratamente a metà 
la lista più piccola. 

Dopo il primo tentativo, ci sono 
solo otto locazioni rimaste da con- 
trollare. Dopo la seconda compa- 
razione, ne rimangono quattro. 
Ogni volta divide per due i nomi 
rimasti nella lista. 

Finalmente, quando la lista non 
può più essere divisa ulteriormen- 
te, o si è trovato il nome cercato, o 
questo non esiste nella tabella. Ov- 
viamente un metodo che dimezza 
le possibilità al primo colpo sarà 
più veloce del metodo sequenziale. 


Prestazioni della ricerca binaria 
Per una lista breve, come quella 


in fig. 3 con appena 15 nomi, il ri- 
sparmio in tempo di ricerca è tra- 


scurabile rispetto al metodo se- 
quenziale. D'altronde, il tempo ef- 
fettivo impiegato dal computer per 
esaminare una lista breve è così 
piccolo, che fa veramente poca dif- 
ferenza quanto tempo impiega un 
particolare metodo di ricerca. 

La richiesta di attenzione del 
computer per le comparazioni ag- 
giuntive e per eseguire i calcoli 
connessi alla ricerca binaria può ef- 
fettivamente rendere quest’ultima 
più lunga di quella sequenziale per 
liste piccole. Un algoritmo teorica- 
mente veloce può non esserlo gran- 
ché se tradotto per uno dei tipici 
centri di calcolo ed eseguito in fi- 
me-sharing. 

Ma con l’aumentare delle dimen- 
sioni della lista, i vantaggi della ri- 
cerca binaria diventano evidenti. 
Per una lista di 65535 nomi, la ri- 
cerca binaria garantisce il termine 
della ricerca in 16 o meno tentativi, 
ossia 2000 volte circa in meno del 
metodo sequenziale. Il numero 
massimo di comparazioni richieste 
per una lista qualsiasi di lunghezza 
n è uguale alla parte intera del lo- 
garitmo in base due di n, più uno. 

Per chi non ha dimestichezza con 
i logaritmi, il numero di confronti è 
uguale al numero di volte che n 
può essere diviso ripetutamente 
per due, continuando ad avere un 
resto intero (per esempio, log8=3, 
perché 8/2=4; 4/2=2; 2/2=1, cioè 
tre divisioni). 


Aggiunta di nomi in una tabella 
ordinata 


Aggiungere nomi ad una tabella 
ordinata è un processo lungo e po- 
co efficente, come risulta anche 
dall’algoritmo 3. Per aggiungere un 
termine, dobbiamo prima control- 
lare che non sia già presente nella 
tabella. Se esiste, l’algoritmo gene- 
ra un messaggio di errore, altri- 
menti la ricerca binaria si ferma nel 
punto in cui deve essere inserito il 
nuovo nome. Tutti i nomi seguenti 
vengono allora spostati di un posto 
in avanti e quello nuovo viene inse- 
rito. 

Per esempio, per inserire DAVI- 
DE nella lista di fig. 4, chiamiamo 


N$(1)=“ALBERTO” N$(1)=“ALBERTO” 


N$(2)=“BARBARA” N$(2)=“BARBARA” 


N$(3)= “CARLO” N$(3)=“CARLO” 


N$(4)=“ENRICO” 


N$(5)=“MICHELE” Dolce 


N$(4)=“DAVIDE” 
N$(5)=“ENRICO” 


N$(6)="PAOLA” N$(6)=“MICHELE” 


sseneromanso: = 

(os: N$(9)="WALTER” 
(a) (b) 

Prima di inserire “DAVIDE” 


N$(7)=“PAOLA” 


N$(8)=“WALTER” N$(8)= “TOMMASO” 


Dopo aver inserito “DAVIDE” 


Figura 4. Aggiunta di DAVIDE in una tabella ordinata. Dopo aver trovato 
la corretta locazione per il nuovo nome, tutti i nomi seguenti sono spostati 
in giù di un posto nella lista. Poi a N$(4) viene assegnato il valore di 
DAVIDE. 


prima la routine di ricerca binaria 
(algoritmo 2) per vedere se c’è già. 
Poiché il nome non c’è, creiamo un 


con G che contiene il valore della 
locazione precedente quella in cui 
deve essere inserito il nuovo termi- 


“buco” al posto in cui deve stare. ne. 
La fig. 4 illustra l’inserzione, do- 


L’algoritmo 2 termina la ricerca 


1000. REM RICERCA BINARIA 


1010 REM-AGGIUNGE IL NOME 
1012 IF N=MAX THEN F=2: RETURN 
1013 F=0 
1015 N=N+1 
FOR I=N TO G+1 STEF-I 
1030 N$(I1)=N$(I-1) 
1040 NEXT T 
1060 N$(G+1)=5$ 
1070 RETURN 
RE = la ù A = 


EM- 


(CA UN NOME 


1F REL =0: RETURN 
IF S$=N$ (6) THEN RETURN 
“1: GOTO 2050 


RES 


RETURN 
4000. REM-=- 00-20 -_---—- 
4010 REM-CANCELLA UN NONE 


FOR I=6 TO N 


N$ (1) =N$(I+1) 
NEXT I 
4060 RETURN 


Listato 2. Subroutine di ricerca binaria. 


ve i nomi che seguono DARIO 
vengono spostati di un posto avanti 
nella lista, e DAVIDE viene inse- 
rito alla locazione 7. L'algoritmo 3 
migliora il precedente, usando dei 
“puntatori” alle stringhe e spostan- 
do i puntatori anziché le stringhe. 

La ricerca binaria può essere mi- 
gliorata ordinando la tabella secon- 
do la frequenza di riferimento. 
Usando un “albero binario” il no- 
me più frequentemente usato nella 
lista appare al centro, così verrà 
esaminato per primo in ogni ricer- 
ca. 

Il listato 2 è un gruppo di routine 
di esempio per implementare una 
ricerca binaria in Basic. 

Le righe da 1 a 999 sono state 
omesse, essendo le stesse del lista- 
to 1. La subroutine 1000 aggiunge 
il nome S$ alla lista; la 2000 esami- 
na la tabella cercando il nome S$, 
e torna con la sua locazione in G, 
mentre la subroutine 4000 cancella 
il nome alla locazione G. Bisogna 
eseguire un GOSUB 2000, prima 
di saltare a 4000, così G assumerà 
il valore corretto della locazione. 


Il metodo hashing 


Il miglior modo di ricerca in as- 
soluto sarebbe una sfera di cristal- 
lo, con cui poter conoscere profeti- 
camente la locazione del nome che 
cerchiamo. Immaginate una scatola 
magica, come in figura 5, che for- 
nisce, specificando un nome, la sua 
esatta locazione in una lista. Un 
modo di ricerca di questo tipo si 
chiama “hashing”, e converte il no- 
me cercato in un numero che è l’in- 
dice di un vettore di nomi (la lista). 

Per vedere come opera il meto- 
do hashing, inventiamo una funzio- 
ne HASH(STRINGA), che associa 
un numero intero ad una stringa 
nel modo seguente: 


numero locazione = HASH(S$) 


dove S$ è il nome cercato. Per con- 
vertire un nome in un numero as- 
segniamo un valore numerico ad 
ogni carattere del nome e poi som- 
miamo questi valori. Associamo il 
numero 65 alla lettera A, il 66 alla 
B e così via, fino alla Z che vale 
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90. Questa corrispondenza lettera- 
numero è stata scelta perché i nu- 
meri sono i codici ASCII con cui il 
computer rappresenta internamen- 
te i caratteri. La maggior parte dei 
Basic ha una funzione del tipo 
C=ASC(S$) che fornisce il codice 
ASCII del primo carattere di S$. 
Per esempio, se S$=“D”, allora 
ASC(S$) darà 68. 

Per produrre l’“hash”, la funzio- 
ne HASH somma i codici corri- 
spondenti a ciascun carattere ap- 
partenente alla stringa. Per esem- 
pio, per ottenere l’hash di DINO si 
sommano i valori dei codici per 
ogni carattere in questo modo: 


D I N O somma 
68 73 78 79= 298 


DINO, perciò, ha un hash di valo- 
re 298. 

Se i nomi sono memorizzati in 
un vettore definito con DIM 
N$(100), allora sorge un altro pic- 
colo problema. Come facciamo ad 
usare il numero 298 come indice 
per N$ se questo deve essere mino- 
re o uguale a 100? Per comprimere 
il valore dell’hash nell’intervallo da 
0 a 100, dividiamo 298 per 100 e il 
resto ottenuto, ossia 98, è l’effetti- 
vo valore dell’indice. 

Per esempio, se definiamo R co- 
me resto di X diviso Y, nella mag- 
gior parte dei Basic possiamo scri- 
vere: 


R=MOD(X,Y) 
oppure R=X MOD Y 
oppure 0R=(X/Y-INT(X/Y))*Y 


Per inserire DINO nella tabella 
hash, N$(98) viene posto uguale a 
DINO. Più tardi, al momento della 
ricerca di DINO, con la stessa pro- 
cedura si ottiene l'indice hash 98, 
trovando immediatamente il nome 
in N$(98). 


Manipolazione delle collisioni 


Un problema sorge quando alla 
funzione HASH diamo un altro 
nome che dà risultato 98. Per 
esempio, il nome “ADA” ha hash 
198: 


N$(3)=“CARLO” 
N$(5)=“MICHELE” 


INPUT NOME 


+ 


“CARLO” > 


N$(1)=“ALBERTO” 


N$(7)= “TOMMASO” 


“SCATOLA MAGICA” 
FUNZIONE HASH 


N$(2)="BARBARA” 
N$(4)=“ENRICO” 
N$(6)="PAOLA” 
N$(8)=“WALTER” 


LOCAZIONE 
OUTPUT 


Figura 5. La funzione hash opera come una scatola magica, che converte il 
nome CARLO in un numero che è la locazione dove va posto CARLO 
nella lista. Effettivamente la magia non c’entra. La funzione hash usa sem- 
plicemente l’aritmetica per convertire la stringa di caratteri in un numero. 
Naturalmente, più di un nome può avere lo stesso numero hash, provocan- 


do una collisione. 


Scalando come prima nell’inter- 
vallo da 0 a 100, otteniamo ancora 
il valore 98. Controllando N$(98) 
troviamo che nella tabella c’è già il 
nome DINO. L’algoritmo crea una 
collisione, ogniqualvolta due o più 
nomi lo stesso hash. Ci sono parec- 
chi modi per manipolare le collisio- 
ni, ma qui ne mostriamo solo uno. 

Quando ADA trova hash in un 
indice già usato, l’algoritmo decre- 
menta l’indice e tenta l'inserimento 
alla locazione 97. Se N$(97) è libe- 
ra, allora l’algoritmo la pone ugua- 
le a ADA; se invece è già occupa- 
ta, l’indice viene di nuovo decre- 
mentato, ripetendo il processo fin- 
ché non trova una locazione dispo- 
nibile. Dopo aver incontrato lo ze- 
ro, l’indice ritorna alla locazione 
100 e continua a decrementare fino 
a trovare un buco libero nella lista. 

Nel peggiore dei casi, l'algoritmo 
hashing può degenerare in una ri- 
cerca sequenziale, cercando dalla 
prossima locazione fino all’ultimo 
posto libero. Questa è la ragione 
per cui la funzione di hash deve 
cercare di eliminare sia le collisio- 
ni, che ogni tendenza dei nomi a 
concentrarsi in una certa area della 
tabella. Per massimizzarne l’effi- 


‘cenza, la tabella non dovrebbe mai 


essere riempita per più dell’80% 
della massima capacità. Con una 
tabella piena all’80%, il metodo 
hashing richiede circa tre confronti 
per ogni ricerca con esito positivo, 
senza riguardo alla dimensione del- 
la lista. Nel caso di ricerca con esi- 
to negativo, occorrono circa 13 
confronti, perfino con tabelle mol- 
to grandi. 


Ricerca su una tabella hash 


Cercando ADA, si ripete il pro- 
cesso visto per l’inserimento. 
ADA, tramite la funzione HASH, 
fornisce l’hash 98. Se l’algoritmo 
non trova corrispondenza, l’indice 
viene decrementato a 97 e viene 
trovato il nome. 

La ricerca termina quando l’al- 
goritmo trova il nome cercato op- 
pure quando l’indice incontra una 
casella della lista non utilizzata. Se 
il nome non esiste e la tabella è 
completa, l’algoritmo si perde in 
un ciclo senza fine. Perciò, in una 
lista lunga N si possono inserire al 
massimo N-1 nomi; deve esserci, 
come minimo, un posto vuoto nella 
tabella. 


ALGORITMO 1 
Algoritmo della ricerca sequenziale 


Sia N$( ) un vettore di stringhe contenente la lista di nomi 
da cercare. Sia N la lunghezza della lista. Esempio: se ci 
sono cinque nomi, essi appariranno da N$(1) a N$(5) e N è 
uguale a 5. Sia S$ il nome da cercare. I serve per tenere 
conto delle locazioni esaminate della lista. 


Azione 

Sia I=1 

IF I>N THEN ricerca terminata, $$ non trovato 
IF S$=N$(I) THEN ricerca terminata, S$ trova- 
to alla locazione I 

Sia I=I+1 e GOTO passo 2 


Passo 


ALGORITMO 2 
Algoritmo della ricerca binaria su tabella ordinata 


Sia N$( ) una lista di nomi ordinata alfabeticamente. Sia N 
il numero dei nomi nella lista. Sia L il confine inferiore del- 
l’intervallo di nomi da considerare, e R il confine superiore. 
Sia G il tentativo a metà strada tra L e R. S$ è il nome 
cercato nella lista N$( ). 


Passo Azione 

il Sia L=1 e R=N, confini iniziali dell’intervallo 

2 G=INT((L+R)/2), prova a metà tra R e L 

3 IF S$=N$(G) THEN ricerca terminata, G locazio- 
ne di S$ 

4 


IF S$<N$(G) THEN R=G-1 ELSE L=G+1, po- 
siziona i nuovi confini 
5 GOTO passo 2 


ALGORITMO 3 
Inserimento di un nuovo nome in una lista ordinata 


Azione 

Esegui l’algoritmo 2 

Se viene trovato S$ con un errore, il nome esiste 
già nella lista 

N=N+1 

FOR I=N TO G+1 STEP -1: N$(1)=N$(I-1): 


Passo 


NEXT I, sposta i nomi avanti di un posto nella 
lista 
N$(G+1)=S$, inserisci il nome nella lista 


ALGORITMO 4 
Ricerca in un tabella hash 


Sia S$ il nome da cercare nella lista di nomi N$( ). La 
funzione HASHI( ) è descritta nel testo. S è la lunghezza del- 
la tabella. 


Azione 

H=HASH(S$) 

IF N$(H)=“ ” THEN fine, S$ non trovato 

ELSE IF N$(H)=S$ THEN fine, $$ alla locazione 
H 


Passo 


H=H-1, decrementa e prova di nuovo 
IF H=0 THEN H=S 
GOTO passo 2 


ALGORITMO 5 
Aggiunta di nomi ad una lista hash 


S è uguale alla dimensione massima della tabella —1. Per 
esempio se MAX=100, allora S=MAX_1, ossia 99. 


Passo Azione 

1 IF N=S THEN errore, lista piena 

2 N=N+1, incrementa il numero dei nomi 

3 H=HASH(S$), calcola l’hash 

4 IF N$(H)=“ ” OR N$(H)="*” THEN N$(H)=S$, 
fine, nome inserito 
H=H-1, collisione, perciò decrementa e riprova 
IF H=0 THEN H=S 
GOTO passo 4 


ALGORITMO 6 
Eliminazione di nomi da una lista hash 


Passo Azione 

1 Chiama l'algoritmo 4 

id IF S$ non c'è THEN errore ELSE segna la loca- 
zione N$(H)=“*” come “cancellata” 


Rimozione di inserimenti hash 


Cancellare un nome da una lista 
non è così semplice come potrebbe 
sembrare di primo acchito. Per 
esempio, se togliamo il nome DI- 
NO dal posto numero 98, quando 
cerchiamo ADA, troveremo l’hash 
98, ma, risultando questo vuoto, 
l’algoritmo concluderà che ADA 
non esiste nella lista. Per risolvere 
questo problema, dobbiamo mar- 
care la locazione 3 come 
“cancellata” anziché libera, così la 
ricerca potrà continuare alla loca- 


zione 2. 

Il listato 3 mostra inserzione, ri- 
mozione e ricerca di record di dati 
in una tabella hash. Come nei pre- 
cedenti listati, S$ contiene il nome 
da aggiungere o cercare nella lista. 
Per rimuovere un nome, bisogna 
chiamare la subroutine 2000 per 
verificare che il nome cercato esi- 
sta realmente, poi con un GOSUB 
4000 lo si cancella effettivamente. 

Non occorre sommare tutti i va- 
lori di tutti i caratteri del nome. Se 
sapete che ci sono solo pochi nomi, 
potete ottenere l’hash anche solo 


con i primi pochi caratteri di cia- 
scun nome. 

Questa è una tecnica molto utile 
per la tabella delle parole chiave 
nei compilatori o interpreti Basic o 
per riconoscere i comandi nei pro- 
grammi. Come esempio considera- 
te un piccolo interprete Basic che 
usi le parole chiave IF, THEN, 
GOTO, GOSUB, FOR, NEXT, 
RETURN, PRINT e INPUT. Se 
calcoliamo l’hash di tutte queste 
parole, usando solo la loro prima 
lettera, l’unica collisione è tra GO- 
TO e GOSUB. 


1040 
1050 


10, 
1070 
1080 
1090 
2000 


5050 
6060 


6070 


REM RICERCA HASC 
REM AGGIUNGE UN NOME 


N=N+1: F=0 

GOSUB 6000 

IF N&(H)="" OR N$(H)="%*" THEN N$(H)=S$: RETURN 
H=H-1 

IF H=0 THEN H=MAX 

GOTO 1060 

Renate 


REM CERCA UN NOME 
GOSUE 6000 
IF N$(H) "THEN RETURN 


IF N$(H)=S$ THEN F: 
H=H-1 


3 G=H: RETURN 


REM STAMFA LA LISTA 
FOR I=1i TO MAX 
IF LEN(N$<(I)) 


O THEN IF N$(1)< THEN FRINT N$(I) 


REM CANCELLA UN NOME 

N$ (H)a"a" 

N=N-1 

RETURN 

REM == eee eee 
REM LASCIA 

GOTO 500 

REM-- 
REM CA 


TO LEN‘S%) 
1,1)) 


FOR I=s1 
H=H+ASC (MID$(S$, 
NEXT I 

H=HC INT (H/ MAO *« MAX 1 
RETURN 


Listato 3. // metodo hashing. 


Sommario 


Gli algoritmi descrivono l’insie- 
me di regole precise che i compu- 
ter devono seguire per risolvere un 
problema. 

L’algoritmo di ricerca sequenzia- 
le è solo uno dei molti modi esi- 
stenti per esaminare una lista o un 
file di record. La ricerca binaria e 
l’algoritmo hashing mostrano come 
si possano apportare grossi miglio- 
ramenti alla soluzione di un pro- 
blema semplice, come la ricerca in 
una lista di nomi. E naturalmente 
ce ne sono molti altri e anche pa- 
recchie variazioni di ognuno. 

I programmi perdono una grossa 
parte del loro tempo a manipolare 
strutture di dati; perciò, i nostri 
programmi dovrebbero trovare il 
miglior metodo disponibile per or- 
ganizzare le informazioni nella me- 
moria del computer. MI 
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«PER ACCORCIARE | TEMPI» 


il seguente: 


RACCOLTA DI ROUTINE BASIC 


4 


Il controllo del numero di partita 
IVA 


Mauro Boscarol 


Rispetto al controllo del codice fiscale, illustrato 
nel precedente numero di questa rubrica, il controllo 
della partita IVA si presenta più semplice. 

Dal punto di vista legislativo, il controllo della par- 
tita IVA è definito nelle “Avvertenze generali” del- 
l’allegato 3 al D.M. 31 dicembre 1981 pubblicato sul- 
la G.U. n. 3 del 5 gennaio 1982 con le rettifiche della 
G.U. n. 37 dell’8 febbraio 1982. (Tale controllo deve 
essere effettuato da tutti i soggetti che presentano gli 
allegati IVA su supporto magnetico.) 

Il numero di partita IVA consiste di 11 caratteri 
numerici, di cui i primi sette individuano il numero 
del soggetto, quelli dall’ottavo al decimo l’ufficio 
IVA e l’undicesimo è il carattere di controllo. 

Il seguente algoritmo di controllo è stabilito dalla 
legge citata. 


1 I primi sette caratteri non possono essere tutti nul- 
li. 

2 I caratteri dall’ottavo al decimo devono essere 
compresi tra 001 e 095. 

3 Moltiplicare per due le cifre di posto pari. 

4 Sommare le cifre di posto dispari con le singole 
cifre ottenute dalla moltiplicazione per due di 
quelle di posto pari. 

5 Il carattere di controllo deve essere uguale al com- 
plemento a 10 della somma ottenuta. 


Per esempio, il numero di partita IVA della SIP è 
00580600013 


Per controllare la regolarità di questo codice, mol- 
tiplichiamo per due le cifre di posto pari, mentre la- 
sciamo invariate quelle di posto dispari, ottenendo 


i 2 38 4 5 6 7 3 9 0 II 


[ole [Sfato [Saro TO) 


3 140 0 142 (0 


e sommiamo le singole cifre ottenute (escluso ovvia- 
mente il carattere di controllo). Otteniamo 17, il cui 
complemento a 10 è appunto 3 (l’undicesimo caratte- 
re). 


La routine di controllo 

Per semplificare la realizzazione della routine di 
controllo, possiamo condurre una analisi preliminare 
del problema. 

Per le cifre di posto dispari non ci sono difficoltà. 
Quelle di posto pari possono essere naturalmente da 
0a 9 (colonna a di tavola 1). Moltiplicandole per due 
si ottengono i numeri di colonna b, e sommando le 
singole cifre si ottengono i numeri di colonna c. 

Il problema è dunque costruire una funzione che, 
dato il valore della colonna a, dia come risultato il 
valore corrispondente della colonna c. 


a b G 
0 0 0 
1 2 2; 
2 4 4 
3 6 6 
4 8 8 
5 10 1 
6 12 3 
iu 14 5) 
8 16 7 
9 18 9 
Tavola 1. 


La funzione è questa: 
c=2*a—9*INT(4/5) 


A questo punto la realizzazione del programma è 
molto semplice. 

Le linee da 10 a 50 sono un esempio di utilizzazio- 
ne. La routine inizia nella riga 10000, dove viene po- 
sto a zero il valore della somma. Nella riga successiva 
viene posto a 1 il valore del flag F (1=errato, 
0= corretto). 

Nella riga 10020 si controlla che le prime sette cifre 
non siano tutte nulle, e nella successiva che il numero 
costituito dalle cifre di posto 8, 9 e 10 sia compreso 
tra 1 e 95. Esauriti questi controlli preliminari si ini- 
zia la somma delle cifre, con un FOR a passo 2. In 
ogni passo si somma direttamente la prima cifra (po- 
sto dispari) nell’istruzione 10080, e quindi si somma il 
valore della funzione detta sopra, calcolata con la se- 
conda cifra. 

Nella riga 10140 si calcola il complemento a 10 del- 
la somma ottenuta. Tuttavia se la somma ottenuta è 
multipla di 10, questa riga fornisce il valore 10 e non 
0. La riga 10150 corregge questo errore. 
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ROUTINE BASIC 


Infine la riga 10160 controlla il risultato ottenuto 
con il carattere di controllo della partita IVA fornita. 


9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 


10 INPUT P$ 

20 GOSUB 10000 

30 IF F=0 THEN PRINT "CORRETTO" 
40 IF F=1 THEN PRINT "ERRATO" 
50 STOP 


REM 

REM CONTROLLO DELLA PARTITA IVA 
REM 

REM PARAMETRO IN INPUT: 

REM P$ (PARTITA IVA) 

REM 

REM PARAMETRO IN OUTPUT: 

REM Z 

REM (Z=0 CORRETTA, Z=1 ERRATA) 
REM 

S=0 

F=1 

IF VAL(LEFT$(P$,7))=O THEN RETURN 
G=VAL(MID$(P$,8,3)) 

IF G<1 OR G>95 THEN RETURN 

FOR I=1 TO 10 STEP 2 
D$=MID$(P$,1,1) 

IF D$<"0" OR D$>"9" THEN RETURN 
S=S+VAL(D$) 

D$=MID$(P$,1+1,1) 

IF D$<"0" OR D$>"9" THEN RETURN 
D=VAL(D$) 

S=S+2*D-9*INT(D/5) 

NEXT I 

T=10-(S-INT(S/10)*10) 

IF T=10 THEN T=0 

IF TK>VAL(RIGHT$(P$,1)) THEN RETURN 
F=0 

RETURN 


Le proposte 


per il nuovo Basic Standard 


Dopo più di dieci anni 


dal Minimal Basic, 
sono in corso di 
approvazione le 
specifiche del nuovo 
Basic 


di Mauro Boscarol 


el 1963-64 John G. Kemeny 
N: Thomas E. Kurtz del 

Dartmouth College (Hano- 
ver, New Hampshire, USA) svilup- 
parono un linguaggio di program- 
mazione che chiamarono Basic. 
Già di per sé, Basic significa 
“basilare”, “semplice”. Ma, come 
è uso degli americani, essi vollero 
far derivare questo nome dalle ini- 
ziali di una denominazione più 
complessa: Beginners All-purpose 
Simbolic Instruction Code, che pre- 
cisa il senso che vollero dare al lin- 
guaggio; letteralmente: codice per 
istruzioni simboliche per scopi ge- 
nerali e per principianti. 

Il linguaggio originale era pensa- 
to appunto come strumento per in- 
segnare agli studenti i fondamenti 
della programmazione. Poiché non 
era stato progettato per trattare 
problemi “reali”, la versione origi- 
nale del Basic era alquanto limitata 
nelle caratteristiche e nelle istru- 
zioni. Inoltre era naturale che ve- 
nisse usata con piccoli computer o 
con terminali time-sharing, gli unici 
sistemi affrontabili da un utente al- 
le prime armi. 

Nonostante le sue limitazioni, la 
popolarità del Basic crebbe ogni 
giorno di più. Essendo un linguag- 
gio interpretato (cioè un linguaggio 
che traduce ed esegue le istruzioni 
una per una) era molto adatto al- 
l'insegnamento trial and error (cioè 
per approssimazioni successive) 
della programmazione. Il tempo di 


risposta era immediato e lo studen- 
te apprendeva immediatamente la 
procedura corretta. 

Queste qualità del linguaggio 
convinsero varie industrie produt- 
trici di computer ad implementarlo 
sulle loro macchine aggiungendo 
nuove istruzioni e possibilità per 
“estendere” il linguaggio. Ogni 
produttore aggiungeva il suo parti- 
colare insieme di “caratteristiche 
speciali”. 


Ora, l’idea principale nell’usare 
un linguaggio evoluto come il Basic 
sta nel poter scrivere programmi in 
una forma che possa essere esegui- 
ta su più computer diversi. Fino a 
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che si usano le istruzioni ‘“fon- 
damentali” del Basic, è possibile 
trasferire un programma da un 
computer ad un altro con relativa 
facilità. Ma nel momento in cui si 
iniziano ad usare alcune delle istru- 
zioni “estese” di una particolare 
versione di Basic (quelle che danno 
al linguaggio delle capacità vera- 
mente interessanti) non si può più 
contare sulla trasferibilità su diver- 
si sistemi. 


Per porre rimedio a questa situa- 
zione l'American National Stan- 
dards Institute (ANSI), analogo al 
nostro UNI, ha deciso, all’inizio 
degli anni ’70, di costituire una 
commissione (la commissione 
X3J2) incaricata di sviluppare uno 
standard per il Basic. La commis- 
sione ha tenuto la sua prima riu- 
nione nel gennaio del 1974. 

Ora siamo in pieni anni ’80 e lo 
standard definitivo non è stato an- 
cora pubblicato. 

Di questa situazione hanno tut- 
tavia approfittato alla fine degli an- 
ni "70 due intraprendenti giovanotti 
americani che hanno creato il 
“Microsoft Basic”, un linguaggio 
che rispetto al Dartmouth Basic 
presenta numerosi miglioramenti e 
diverse istruzioni aggiuntive. La 
velocità dell’interprete, la sua com- 
pattezza e la possibilità di collega- 
menti con il linguaggio macchina 
ne hanno fatto il linguaggio ideale 
per il personal computer, la cui in- 
dustria era allora appena nata ma 
già in piena espansione. Il Micro- 
soft Basic è stato implementato su 
NCR, ADDS, DTC, Commodore 
PET/CBM/VIC, Apple, Ohio 
Scientific, TRS-80, Sorcerer, Ata- 
ri, Texas, NEX e la lista può allun- 
garsi a piacere. 

Il Microsoft Basic è diventato, 
per un certo periodo di tempo, lo 
standard de facto dei personal com- 
puter. Ovviamente ogni produttore 
aveva (ed ha) la sua particolare 
versione, modellata sulle caratteri- 
stiche della propria macchina; tutte 
le versioni tuttavia si rifacevano a 
principi generali che contraddistin- 
guevano appunto il Microsoft Ba- 
sic. 

Ma torniamo al comitato del- 
VANSI, che avevamo lasciato alla 
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Il cammino del nuovo standard 


Nell'estate del 1972 la bozza di 
standard è stata approvata. Succes- 
sivamente è stata trasmessa al co- 
mitato X3 e quindi verrà trasmessa 
al comitato SPARC (Standard 
Planning and Requirements Com- 
mittee). L'approvazione del comita- 
to è prevista per l’inizio di que- 
st'anno, e a quel punto inizierà un 
periodo di 120 giorni di “commenti 
del pubblico”. k 

Alla fine di questo periodo i vari 
comitati ANSI studieranno le rea- 
zioni del pubblico e decideranno se 
fare o no revisioni allo standard 
proposto. Per luglio è prevista una 
riunione del comitato X3J2. per 
l'approvazione finale. 


riunione del gennaio 1974. Perché 
da allora ad oggi non si è riusciti a 
pubblicare uno standard? Il proces- 
so di standardizzazione è comples- 
so e articolato, ma è necessaria 
questa lentezza? La risposta data 
da E. Kurtz, uno degli inventori 
del Basic, che oggi presiede appun- 
to quel comitato, è duplice. 
Innanzitutto, egli dice, dal ’74 ad 
oggi sono stati prodotti due stan- 


dard: il Minimal Basic, apparso nel 
°78, e la “bozza” apparsa l’anno 
scorso. Inoltre, egli continua, la 
standardizzazione del Basic è com- 
plicata dal fatto che si tratta di un 
linguaggio in rapida evoluzione. In 
altre parole, il Basic è un bersaglio 
mobile. 

Il Minimal Basic è in effetti stato 
pubblicato nel 1978 (con sigla 
X3.60-1978). Ma, a causa del rapi- 
do sviluppo della - tecnologia in 
quegli anni, che ha reso obsolete le 
sue modeste capacità, non è riusci- 
to ad affermarsi. Tanto più che in 
quegli anni imperava il Microsoft 
Basic, che, come abbiamo visto, 
era esattamente ciò che ci voleva 
per i micro di allora. 

Ed è corretta anche la seconda 
affermazione di Kurtz. Partito con 
una dozzina di istruzioni, e la pos- 
sibilità di manipolare solo numeri, 
oggi il Basic ha molte più istruzio- 
ni, per la manipolazione di numeri, 
stringhe, vettori, matrici, file, gra- 
fica e musica. Le variabili di una 
sola lettera ora hanno nomi più 
lunghi. Esistono i Basic strutturati 
con IF...THEN...ELSE, insomma 
una miriade di Basic. 

Tutte queste diverse versioni so- 
no state raccolte nella “bozza” di 


arco coseno 

angolo, data la base e l’al- 

tezza 

arco seno 

opposto di INT, parte inte- 

ra superiore 

coseno iperbolico 

cotangente 

cosecante 

data 

da radianti a gradi 

il minimo numero positivo 

(epsilon) 

parte decimale, 

X-INT(X) se X>0 

il massimo numero positivo 

(infinito) 

parte intera, INT(X) se 

X>0 

logaritmo in base 10 

logaritmo in base 2 

massimo 

minimo 

modulo (resto di divisione 

intera per numeri positivi) 

pi greco 

da gradi a radianti 

resto (come MOD per i 

numeri positivi) 

arrotondamento 

secante 

seno iperbolico 

tangente iperbolica 

ora, minuti, secondi 

troncamento, riduce le ci- 
fre significative 


Tavola 1. Le nuove funzioni nume- 
riche del Basic Standard (angoli 
espressi in gradi o radianti). 


standard, il che significa che il 
compito tecnico del comitato è ter- 
minato. Ora la bozza deve seguire 
la trafila burocratica per essere ap- 
provata (vedi riquadro) e se tutto 
va bene fra qualche anno avremo il 
nuovo Basic. 


Quali sono le caratteristiche del 
nuovo Basic Standard 


Riassumiamo qui di seguito le 
principali novità. 
Commenti 

Oltre al REM si potrà usare il 
punto esclamativo (!). 


Nomi delle variabili 
Fino a 31 caratteri, maiuscoli o 
minuscoli. 


Operazioni numeriche 
La grossa novità è che l’aritmeti- 
ca sarà decimale in virgola mobile 


(e non binaria o esadecimale). 
Quindi 2.29+4.71 darà 7.00 non 
6.99999. E ancora 
dEded4.1+1+.14-1# 14141 
darà esattamente 1. 


Funzioni numeriche 

Oltre a quelle già presenti nel 
Minimal (ABS, ATN, COS, EXP, 
INT, LOG, RND, SGN, SIN, 
SQR, TAN) verranno implementa- 
te quelle indicate in tavola 1. 


Operazioni di stringa 

La concatenazione (&) e l’estra- 
zione di sottostringa: RIGA$(4:7) 
fornisce dal quarto al settimo ca- 
rattere della stringa RIGA$. 

L’indicazione di sottostringa può 
apparire anche a sinistra del segno 
di uguale. Spariscono così SEG$, 
MID$, LEFT$, RIGHTS, ecc. 


Funzioni di stringa 

La nota CHR$ e la sua opposta, 
ORD. La nota STR$ e la sua op- 
posta VAL. LCASE$ e UCASE$ 
convertono da maiuscolo a minu- 
scolo e viceversa. DATE$ e 
TIME$ forniscono la data e l’ora 
sotto forma di stringa. POS cerca 
una stringa in un’altra stringa. 


Istruzione LET 
Sorpresa: è obbligatoria. La ra- 
gione principale è di ridurre il nu- 


mero di parole riservate, mante- 
nendo semplice la scansione dell’i- 
struzione. In questo modo solo le 
funzioni senza argomenti sono ri- 
servate (come RND) e le parole 
NOT, PRINT, REM e ELSE. Non 
si può cioè scrivere LET RND=3. 
Però si può scrivere LET 
INPUT=3. 


Vettori e matrici 

Solo ad una o due dimensioni. 
Non esistono più i dimensionamen- 
ti per default. Vettori e matrici de- 
vono essere dimensionati prima 
dell’uso. 

Una serie di istruzioni MAT 
comprendono input ed output di 
matrici, moltiplicazione scalare, 
somma, sottrazione e moltiplica- 
zione di matrici, e le funzioni INV 
(inversione), TRN (trasposizione), 
DOT e DET (determinante). 


Salti e decisioni 

Ci saranno sempre GOTO e 
IF...THEN. Inoltre, l’IF multistru- 
zione: 


IF espressione THEN 
ELSE 


END IF 


che naturalmente può essere scritta 


Quasi Basic 


Nel numero di aprile 1979 di Byte un lettore ha scherzosamente proposto 
alcune nuove istruzioni e funzioni per il Basic Standard. Eccone alcune: 


Assegnazione 
10 LETA #4 
20 LETA = 19 


IF-MAYBE (se-forse) 
30 IF G=12 MAYBE 40 


Assegna ad A qualunque valore che non sia 4. 
Assegna ad A un valore quasi uguale a 19. 


Se G è 12, forse vai a 40 (provate a fare delle 


nidificazioni di questa IF). 


ABOUT (circa) 
40 FOR N=1 TO ABOUT 100 


50 NEXT N 


FUZZ (confusione) 
60 FUZZ=39 


Questa istruzione si usa quando non si è com- 
pletamente sicuri sul numero di volte che il 
ciclo deve essere eseguito. 


Questa funzione dice al Basic come trattare 


gli errori. Se FUZZ=0 il programma viene 
eseguito correttamente indipendentemente 
dagli errori presenti. Se FUZZ=99 il sistema 
va in crash appena viene rilevato un minimo 
errore logico o anche sintattico. 


Un “bug” nel Basic 


W. D. Maurer, del dipartimento di ingegneria elettrica e informatica dell’uni- 
versità George Washington ha trovato un errore comune a molte versioni di 
Basic per microcomputer. Il programma che illustra il “bug” è il seguente. 


10 DIM T(100) 
20 PRINT"QUANTI NUMERI?" 


30 INPUT N 

40 PRINT"BATTI “sN5" NUMERI" 
50 FOR C=1 TON 

60 INPUT T(C) 

70 NEXT C 

80 FOR C=1 TON 

90 IF T(C)=0 THEN 130 


100 NEXT C 

110 PRINT"ZERO NON E” PRESENTE” 
120 GOTDO 140 

130 PRINT"ZERO E? 
140 FOR R=1 TO N-1 
150 FOR C=R+1 TON 
160 IF TC(R)=T(C) THEN 210 
170 NEXT C 

180 NEXT R 


PRESENTE" 


190 PRINT"NESSUNA DUPLICAZIONE" 
200. GOTO 220 

210 PRINT"T("5R5")=T("5C5%)" 
220 END 


Il programma accetta alcuni numeri da tastiera, verifica la presenza dello zero 
e di duplicati. Ecco un esempio di esecuzione corretta 


QUANTI NUMERI? 
25 

BATTI 5 NUMERI 
23 

27 

29 

?23 

cai 

ZERO NON E” 
T(3)=T(5) 


PRESENTE 


e un esempio di esecuzione errata 


QUANTI NUMERI? 
25 
BATTI 5 NUMERI 


P6 
ZERO E” PRESENTE 
PNEXT WITHOUT FOR ERROR IN 180 


Non c’è una semplice spiegazione per questo “bug”. È chiaro che l'errore 
avviene nella linea 180. Il messaggio d’errore dice che c'è un NEXT senza FOR, 
il che è chiaramente falso. L’errore è stato riscontrato su 

APPLE (Applesoft) 

Atari 800 e 400 

Commodore PET 

Ohio Scientific Challenger 1P 
TRS-80 Modello I (level II Basic) 


Come si comporta il vostro sistema? E come spiegate l’errore? Se volete sa- 
perne di più, leggete a p. 188 del numero di gennaio 1981 di Byte. 


anche su una riga. 
Cicli 

Oltre il FOR...NEXT, ci sarà il 
DO...LOOP, che può essere unito 
ad un WHILE o a un UNTIL 


DO UNTIL I>N OR A<R 


LOOP 
DO WHILE A=3 
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LOOP 


Da un ciclo di DO si potrà uscire 
con un EXIT LOOP. 


Scelta multipla 

L’istruzione SELECT permette- 
rà di scegliere una tra tante alter- 
native 


SELECT DADO 

CASE 7,11 
PRINT“VINCI” 

CASE 2,3,12 
PRINT“PERDI” 

CASE ELSE 
PRINT“TIRA ANCORA” 
END SELECT 


Funzioni, sottoprogrammi e chai- 
ning 

Nel Minimal Basic era possibile 
definire istruzioni su una sola riga 
e subroutine. Con il nuovo stan- 
dard sono possibili le definizioni di 
funzioni su più righe, i sottopro- 
grammi e il chaining di programmi. 
Le definizioni di funzioni su più ri- 
ghe iniziano con DEF e finiscono 
con END DEF. 

I sottoprogrammi sono esterni al 
programma principale ed esterni 
tra loro. Le variabili interne sono 
locali, i parametri possono essere 
numeri, stringhe, vettori o matrici 
o numeri di canale (per i file). 

L’istruzione CHAIN permette 
ad un programma di mandare in 
esecuzione un altro programma, 
che può essere in un linguaggio di- 
verso. I due programmi si passano 
dalle informazioni mediante una li- 
sta di argomenti. 


Input e output 

L’istruzione LINE INPUT per- 
mette di introdurre una intera linea 
con virgole, apici e blank. L’istru- 
zione PRINT USING permette di 
dare un formato all’output. 


File 

Saranno previsti quattro tipi di 
file: sequenziali, a lunghezza varia- 
bile di record (stream), relativi (ac- 
cesso casuale) e con chiave, e tre 
tipi di record: display, interni e na- 
tive. I record display sono quelli 
prodotti da istruzioni PRINT: 
stringhe di caratteri con CR e LF 
al termine. I record interni conten- 


gono valori in qualche formato in- 
terno. 


Trattamento degli errori 

La costruzione per intercettare 
le “eccezioni”, come giustamente 
vengono chiamate dal Basic Stan- 
dard, è questa 


WHEN EXCEPTION IN 
USE 
END WHEN 


Sono previste altre istruzioni per 
costruzioni più elaborate. 


Grafica 
L’istruzione PLOT può tracciare 
punti o linee con varie modalità: 


PLOT X,Y 
PLOT (X1,Y1);(X2,Y2) 
PLOT 


Se il fascio è off le prime due 
istruzioni tracciano rispettivamente 
un punto in (X,Y) e una linea da 
(X1,Y1) a (X2,Y2). Se il fascio è 
on tracciano anche una linea dal 
punto precedente a (X,Y) o 


siMmcrla=z3i- 


(X1,Y1) rispettivamente. La terza 
istruzione spegne il fascio se è on. 

I punti da tracciare sono dati in 
coordinate utente, specificati da 
un'istruzione WINDOW. 

Il programmatore può specifica- 
re il formato fisico dello schermo, 
predisporre il colore e lo stile delle 
linee, e verificare lo stato di queste 
quantità. 

Complicati disegni si possono 
realizzare mediante disegni più 
semplici con istruzioni PIC, che so- 
no come sottoprogrammi. Possono 
poi essere trasformati, ruotati e 
spostati in vari modi. 


Conclusioni 


I primi commenti al nuovo stan- 
dard sono già arrivati. Alcuni posi- 
tivi ed altri negativi. 

I positivi insistono soprattutto 
sull’orientamento strutturato che è 
stato dato al nuovo Basic, e sui sot- 
toprogrammi esterni. 

Le caratteristiche grafiche dello 
standard proposto hanno ricevuto 


un cauto benvenuto dagli insegnan- 
ti di computer. 

I commenti negativi sono più va- 
ri. C'è chi obietta la mancanza di 
una dichiarazione di tipo variabile. 
E gli si risponde che è un tributo 
da pagare alla semplicità di imple- 
mentazione. Chi, ironicamente, 
protesta invece sulla complessità 
del nuovo linguaggio, che rende 
difficile e lontana la sua implemen- 
tazione sui vari computer. 

La filosofia del nuovo standard, 
in conclusione, non sembra essere 
quella di produrre uniformità tra le 
varie versioni di Basic, bensì di 
convogliare gli implementatori ver- 
so un obiettivo comune, e quindi 
aumentare le possibilità che un da- 
to programma Basic possa essere 
usato su diversi sistemi. 
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televisore e registratore. 


Alimentatore 0,7 A - 9 Ve.c. 


Personal Computer ZX81, completo di manuale 
originale Inglese e cavetti di collegamento al 


Personal Computer ZX81, con alimentatore 0,7 A, 
completo di manuale originale Inglese e cavetti 
di coll gamento al televisore e registratore. 


Modulo di espansione di memoria 16K RAM 


Prezzo Totale 
unitario L. 


145.000 


25.000 


131.000 


Valigetta con ZX81,stampante, espansione 16K RAM 
Valigetta con ZX81,stampante, espansione 32K RAM 
Valigetta con ZX81,stampante, espansione 64K RAM 


460.000 L 


530.000 
620.000 


195.000 


Guida al Sinclair ZX81 


contro assegno, al seguente indirizzo: 


Desidero ricevere il materiale indicato nella tabella, a mezzo pacco raccomandato, 


Nome I 


zi 


vostra subito! 


Se volete riceverlo velocemente compilate 
e spedite in busta il ‘Coupon Sinclair” e 


Cognome È |} 1 
Via [ ai 
Città 1 


| 
| 
| 
| 
| 
| 
| 
| 
| Stampante Sinclair ZX, con alimentatore da 1,2 A 
| 
| 
| 
[| 
| 
| 
| 


riceverete in OMAGGIO il famoso libro spa 
‘Guida al Sinclair ZX81” di ben 264 pagine, Data | LI. | CAP. È 
del valore di L. 16.500. QC pei [ra] I ] 
EXELCO | Acconto L. - i | o 1 ' ot 

| prezzi vanno maggiorati dell'IVA 18% e di L. 8.000 per il recapito a domicilio 9 
Via G. Verdi, 23/25 ATTENZIONE! i 
20095 - CUSANO MILANINO (MILANO) Le 


I Tutti i nostri prodotti hanno la garanzia italiana di un anno, data dalla SINCLAIR. 


Comporre musica 


Alla scoperta delle 
potenzialità musicali 
dell’ Atari 


di William L. Colsher 


24 


con l’Atari 


uasi tutti i microcomputer 

possiedono un generatore di 

suoni. L’Apple II e l'Apple 

III hanno altoparlanti incor- 
porati, come pure l’Hewlett Pac- 
kard HP-85. Musica di qualche ti- 
po si può ottenere anche tramite il 
collegamento con l’unità a cassetta 
di un TRS-80. Ma finora nessuno 
ha scoperto le potenzialità degli 
Atari 400 e 800. Ogni Atari ha in- 
corporato un sintetizzatore a quat- 
tro voci. Ciascuna voce è in grado 
di riprodurre una singola nota a va- 
ri volumi e con diversa qualità tim- 
brica, indipendentemente dalle al- 
tre tre. Le voci sono controllate 
con l’istruzione SOUND, definita 
nella tavola 1. 

Giacché si possono riprodurre 
quattro diverse note alla volta, po- 
tete comporre degli accordi musi- 
cali. Questo programma mostra co- 
me si può fare. 

Un accordo è formato da almeno 
tre note (tutti quelli che useremo 


noi saranno di tre note). Sarebbe 
noioso e poco pratico codificare 
espressamente le tre note di ciascu- 
no dei quattro accordi per ognuna 
delle 12 note della scala. Per fortu- 
na c’è una relazione fissa tra la no- 
ta fondamentale di un accordo e le 
altre. Perciò per ogni accordo è 
sufficiente conoscere il tipo e la sua 
nota fondamentale. 

La tavola 3 mostra le relazioni 
numeriche tra la nota fondamenta- 
le e le altre nei quattro accordi che 
abbiamo scelto per il nostro pro- 
gramma. Una volta note queste re- 
lazioni, scrivere il programma è ve- 
ramente facile. 

La tastiera dell’Atari ha per l’ap- 
punto 12 caratteri disposti da sini- 
stra a destra, senza contare i tasti 
di controllo (A, S, D, F, G, H, J, 
K, L, ;, + e * sulla seconda riga). 
Potete leggere la tastiera dell’Atari 
così com’è, ma sfortunatamente il 
valore che si ottiene non è il valore 
ASCII del carattere scelto. La ta- 


voce Voce è un intero da 0 a 3 che stabilisce la voce del sintetizzatore che 
dev'essere scelta da questa istruzione. 
nota Nota è un intero da 0 a 255 che dice al sintetizzatore quale nota ripro- 


durre. I numeri più grandi danno le note più basse. La tavola 2 elenca 
alcuni di questi numeri e le note musicali a cui corrispondono. 
tono Tono è un intero pari da 0 a 14. Il valore 10 produce una nota norma- 


le. 


volume Volume è un intero da 1 a 15. Se si sta usando più di una voce, il 
volume totale non deve superare 32. 


Tavola 1. Parametri dell’istruzione SOUND per l’Atari. 


Tavola 3. I fattori di moltiplicazio- 
ne della nota fondamentale che pro- 
ducono la seconda e la terza nota 
dei vari accordi. 


vola 4 contiene i valori relativi ad 
ogni tasto usato nel programma, 
oltre alla nota o accordo ad esso 
assegnato. Le righe dalla 200 alla 
260 stabiliscono nel programma 
queste relazioni. 

Le righe dalla 1000 alla 1120 so- 
no quelle che impiegano la mag- 
gior parte del tempo richiesto dal 
programma. Se non è stato premu- 
to alcun tasto, l’istruzione 
PEEK(764) dà il valore 255. Dopo 
averne premuto uno, in quella lo- 
cazione deve essere riposto il valo- 
re 255. Ciò viene effettuato nella 
riga 1110 e nella penultima riga di 
ogni routine di composizione del- 
l’accordo. 

Se è stato premuto un tasto, il 
programma controlla subito se si 
trattava di un tasto per la scelta 
dell’accordo (da 1 a 4). Se è così, 
salta alla routine corrispondente e 
riproduce l’accordo in questione 
usando l’ultima nota scelta. Ciò in 
relazione al modo in cui sono stati 
scritti i nomi degli accordi. Per ri- 
produrre un accordo in re minore, 
dovreste prima premere il tasto H 
per scegliere una nota re e poi il 
tasto 3 per l’accordo ‘minore. 

Se il tasto premuto non era riser- 
vato alla scelta dell’accordo, il pro- 


Nota Numero 
di SOUND 


La 144 
Si bemolle 136 
Si 128 
Do 121 
Do diesis 114 


Re 108 
Mi bemolle 102 
Mi 96 
Fa 91 
Fa diesis 85 
Sol È 81 
La bemolle 76 


Tavola 2. Il numero dell’istruzione 
SOUND corrispondente alle note 
dell'ottava che parte dal La basso 
fino al Do di mezzo. 


Accordo Moltiplicatore per la 
seconda nota 


Moltiplicatore per la 
terza nota 


Maggiore -79166 .66666 
Settima -79166 .5625 
Minore .84027 -66666 
Minore settima .84027 .5625 


10 DIM REALTONE (12,2) 

100 LASTBYTE=O 

200 REM ***FREFARA LA STRINGA FER LA NOTA VERA 
210 FOR I=1i TO 12 

READ ALE 

REALTONE(I,1)=A:REALTONE (1,2)=E 

240 NEXT I 

250 DATA 63,144,62, 136 
260 DATA 1,102,5, 56 
BYTE=FEEK (764) 
IF EYTI 
IF BYTE= 
IF BYT 


+58, 128,56, 121,61,114,57,108 
912,185, 64817576 

EM +*** LEGGE LA TASTIERA 

55 THEN GOTO EM xxx NESSUN TASTO 

THEN GOTO #** ACCORDO MAGGIORE 
THEN GOTO 2 *** Al DO DI SETTIMA 
IF BYTE=26% THEN GOTO 22 *** ACCORDO MINORE 
1050 IF BYT THEN GOTO *** ACCORDO 7 MINORE 
1060 REM #** CONTROLLA SE E” STATA CAMBIATA NOTA 

1070 IF BYTE=LASTEYTE THEN GOTO 1000 

1075 LASTBVTE=BYTE 

1080 FOR 1=1 TO 12 

1090 IF EYTE=REALTONE (1,1) THEN TONE=REALTONE (1,2) 

1100 NEXT I 

764, 255:REM *** RIATTIVA LA TASTIERA 

GOTO 1000 

REM *** SUONA UN ACCORDO MAGGIORE 

SOUND 0, TONE, 10,8 

SOUND (INT (TONE*O.79156+0.5) 1: 
SOUND 2, INT TONE 0. 66666+0.5),10 
FOKE 764,255 

6D0TD 1000 

REM *** ACCORDÙ DI SETTIMA 

SOUND ©, TONE, 14,8 

+ INT (TONE*0.79166+0.5), 10,8 
+ INT (TONE*0, 5625+0.5), 19,8 


GOTD 1000 
REM +** ACCORDO MINNRE 
SOUND 0, TONE, 10,8 

L, INI TONEXO 
INT CMONE*O. 


FOKE 7é 
GOTO 1000 

REM #** ACCORDO DI SETTIMA MINOGRE 
SOUND ©, TONE, 10, & 
SOUND 1, INI (TONEx0.340 
(TONE «©. 562 


GOTO 1000 


Tasto premuto 


Care taTnobuu»p 


AUWUNH # +e 


PEEK(764) 


Nota o accordo 


riprodotto 
63 La 
62 Si bemolle 
58 Si 
56 Do 
61 Do diesis 
57 Re 
1 Mi bemolle 
5 Mi 
0 Fa 
2 Fa diesis 
6 Sol 
Ti La bemolle 
31 Maggiore 
30 Settima 
26 Minore 
24 Minore settima 


Tavola 4. Corrispondenza tra i tasti dell’Atari e le note o i tipi di accordo 
prodotti nell’istruzione PEEK(764) della riga 1000 del listato. 


gramma esamina la sua tabella del- 
le note e dei valori dei tasti (vedi la 
tavola 4) e, se si trova il valore re- 
lativo al tasto, pone il valore corri- 
spondente nella variabile TONE. 
In questo modo non si modifica 
l’accordo da comporre. 


Su BIT di Aprile: 


Questo programma è solo un’in- 
troduzione alle potenzialità musi- 
cali dell’Atari. Se fate riferimento 
di nuovo alla tavola 1, noterete che 
c'è un parametro di controllo per il 
volume nella funzione SOUND. 
Potrebbe per esempio essere gesti- 


Bitest ZX Spectrum e AVT Comp 2 


Data$Star 


L’AIM 65 programma le EPROM 
Avventura nel castello 


RISERVATO 
PERSONAL: 


in regalo: 


to da tastiera con le frecce verso 
l’alto e verso il basso. Noterete an- 
che che ho usato solo tre delle 
quattro voci. Si potrebbe aggiunge- 
re un secondo “manuale” che ri- 
produca le singole note usando la 
quarta voce. Il parametro del tono 
in SOUND può dar luogo ad alcu- 
ni suoni misteriosi e piacevoli, 
usando la quarta voce si può otte- 
nere una sezione ritmica. Inoltre, 
potete sempre aggiungere altri ac- 
cordi. MI 


LA GUIDA PRATICA 
AL SISTEMA 
OPERATIVO 


64 pagine di software 


per il vostro 


personal 
computer 


CP/M 


Il sistema Pretty Printer 


Un sistema che 
permette la stampa 
ordinata di un listato 


di Sandro Ventura 


Molti lettori ci spediscono listati 
di programmi. 

Generalmente, dopo averne deci- 
so la pubblicazione, il compito più 
gravoso della redazione consiste nel 
ribattere il listato con una giusta di- 
stribuzione degli spazi, in modo 
che possa essere leggibile e ben im- 
paginato. Questo programma fa au- 
tomaticamente tutte queste cose per 
i listati dell'Apple II. 

Chiediamo dunque ai nostri letto- 
ri di utilizzare il sistema Pretty 
Printer per ogni listato che inviano 
alla redazione, stampandolo su 64 
colonne. 

E invitiamo i possessori di PET, 
VIC, TRS-80, ecc. a convertire que- 
sto programma per le loro macchi- 
ne (naturalmente i problemi sono 
diversi: i caratteri grafici, ...). 
[M.B.] 


per 1’ Apple 


olti linguaggi di alto livello 
Mess C o Lisp) fanno 
uso di programmi di stam- 


pa appositamente concepiti per 
reimpaginare automaticamente il 
testo di un programma, in modo da 
renderlo più leggibile e quindi di 
più immediata consultazione. 

Il programma qui proposto, 
scritto in Basic, è inteso appunto 
per produrre un listato “ordinato” 
dei programmi dell'Apple II. Im- 
piegando il potente sistema opera- 
tivo su disco, permette di manipo- 
lare programmi sorgente in Basic, 
in modo di conferire loro una veste 
adatta all’impaginazione. Il pro- 
gramma è in grado di elaborare 
programmi scritti in entrambi i tipi 
di Apple Basic (Integer o Apple- 
soft). 


D$=CHR$ (4) 
PRINT D$3 "OPEN APPRINT" 
PRINT D$; "WRITEAPPRINT" 


Descrizione 


Il programma consiste di due fi- 
le, che devono risiedere nello stes- 
so dischetto. 

Il primo file chiamato AP- 
PRINT, ha lo scopo di trasferire il 
vostro programma dalla memoria 
dell'Apple, in cui l’avete caricato, 
in un text file su disco. 

Il secondo file di nome PRETTY 
legge tale text file e ne elabora i 
dati per produrne una stampa im- 
paginata. 

Una caratteristica molto impor- 
tante di tale stampa impaginata 
consiste nella possibilità di prede- 
terminare il numero massimo di ca- 
ratteri per riga, poiché il program- 
ma si occuperà automaticamente di 
spezzare le frasi qualora superino il 
margine stabilito. 

Tutti i listati di questo articolo 


PRINT"30000 D$=CHR$(4):REM CTRL-D" 

PRINT"30005 PRINT D$5"+CHR$ (34) +"OPEN LISTING"+CHR$ (34) + 
": PRINT D$5"+CHR$(34)+"DELETE LISTING"+CHR$ (34) 
PRINT"30010 PRINT D$;"+CHR$ (34)+"OPEN LISTING"+CHR$ (34) + 


"s PRINT D$5"+CHR$(534)+"WRITE LISTING"+CHR$ (34) 
PRINT"30020 POKE 33,30: LIST 1,30000" 

PRINT"ZO03O PRINT D$5"+CHR$ (34) +"CLOSE LISTING"+CHR$ (34) 
PRINT"30040 END" 

PRINT"RUN 30000" 

PRINT"RUN PRETTY" 

PRINT D$; "CLOSE AFPRINT" 


Listato 1. Programma per creare il text file Apprini. 


30000 D$ = CHR$ (4): 
30005 PRINT D$; "OPEN LISTING": 
30010 PRINT D$; "OPEN LISTING": 
30020 POKE 33,30; 
30030 
30040 END 
RUN 30000 

RUN PRETTY: 


LIST 1,30000 
PRINT D$5 "CLOSE LISTING" 


REM CTRL-D 
PRINT D$; "DELETE LISTING" 
PRINT D$; "WRITE LISTING" 


Listato 2. Contenuto del text file Apprint. 


sono stati ottenuti con questo siste- 
ma. 


Come creare il sistema 


Anzitutto dovete procurarvi un 
disco nuovo e inizializzarlo. Poi 
battete il programma riportato nel 
listato 1 ed eseguitelo. Questo pro- 
gramma crea un text file di nome 
APPRINT il cui contenuto è ripor- 
tato nel listato 2. Una volta che vi 
siete accertati che il text file AP- 
PRINT è stato creato correttamen- 
te, potete cancellare il programma 
che vi è servito per crearlo. 

APPRINT infatti è un file che 
viene creato una tantum (in senso 
letterale, non governativo). 

Dopo aver creato APPRINT do- 
vete accingervi a battere il listato 3 
e salvarlo su disco con il nome di 
PRETTY; 

A questo punto il sistema è crea- 
to e potete farlo funzionare. 


Come funziona 


Per far funzionare il sistema, do- 
vete eseguire le seguenti operazio- 
ni: 


1 Caricare in memoria il program- 
ma Basic che volete elaborare; 

2 Inserire il dischetto contenente 
APPRINT e PRETTY e battere 
EXEC APPRINT. 


A questo punto, le linee di pro- 
gramma di APPRINT vengono au- 
tomaticamente messe in coda al 
programma da listare, e l’ultima ri- 
ga, il RUN 30000 manda in esecu- 
zione le righe dalla 30000 in poi 
che trasferiscono il programma in 
un file speciale di nome LISTING. 
Dopo il trasferimento viene auto- 
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maticamente fatto partire il pro- 
gramma PRETTY. 

Il principale inconveniente di 
questo programma è la relativa 
lentezza di esecuzione. La prima 
parte, di lettura e di prima elabora- 
zione del programma, può impie- 
gare da mezzo minuto a quasi dieci 
minuti di tempo, a seconda della 


Listato 3. Pretty Printer. 


10 TEXT: DIM A$(500) 

20. N=1: D$=CHR$(4): 
"READLISTING" 

30 AS(O)=""; C=0 


40 HOME: VTAB 10: PRINT 


PRINT D$; "OPEN LISTING": 


lunghezza del programma da impa- 
ginare. In questo stadio ogni frase 
viene memorizzata in un elemento 
di una matrice (A(1), A(2),..., 
A(n)). 

L’utente a questo punto deve 
scegliere il numero di colonne su 
cui impaginare, ed ha inizio la 
stampa. Premendo un tasto qual- 
siasi la stampa si interromperà fino 
al prossimo tasto premuto. 


Limiti del sistema 


Anzitutto, per la stampa si pre- 
sume che lo slot della stampante 
sia il numero 1. Per cambiare nu- 
mero, basterà cambiare opportuna- 


PRINT D$: 


"STO LEGGENDO ED ELABORANDO IL FROGRAMMA. " 


50 GET AS 


60 IF A$=CHR$ (13) AND LENC(A$(N))=0 THEN S 


70 IF A HR$ (13) 
80 AF (N) =A6 (N) +A$ 
90 IF A$(N)<>"30000" 
100 FRINT D$; "NOMON": 
110 N=N-1 

120 PRINT D$; "CLOSE LISTING" 
130 GOSUB 790 

140 VTAB 16: 
150 VTAB 16: 
IF A$="S" THEN 
STOP 

REM 


140 
160 
170 
180 
190 
200 
210 
220 
230 
240 


250 


REM 

FOR F=7 TO LUN+2: 
IF F>=LEN(Z%) 
IF MID$(Z$,F,1)=CHR$(34) 


MID$(Z$,F-1,1)=" 
F=F-1: GOTO 440 

IF AF=1 THEN 440 
AP=0: AC=O 

IF MID$(Z$,F,1)=" 
F+1): GOTO 280 
SP=0 

IF MID$(Z$,F,1) 
Qs=MID$(Z6,F,1): 


260 
270 
280 


290 
300 
sio 


>"," AND 0$ < 
IF_MID$(Z$,F-1,1)=" 
F=F-1: GOTO 320 
DF$=MID$(Z$,F,1) 
IF F>LUN THEN 360 
IF DF$="+" OR DF$ 
IF MID$(2$,F+1,1)=" 
GOTO 360 
GOTO 440 
IF MID$(Z$,F,i) 


THEN N=N+1: 


THEN 50 
VTAB FEEK (37): 


INFUT "QUANTE COLONNE?" LUN: 
PRINT"UN? ALTRA STAMPA?":: 


THEN VIR=VIR+1: 
IF VIR/2=INT(VIR/2) THEN AP=0 
AND MID$(Z$,7,1)<>" 
IF MID$(Z%,F,1)=CHR$(34) AND VIR/2<>INT(VIR/2) 


" THEN Z$=LEFT$(Z$,F-2)+MID$(Z#$,F): 


# " THEN SP=1i: 


-" AND Qg<> 
AND D$<>"<" AND Q$cs"> 

CRMOSTHENISB0)] 
“ THEN Z$=LEFT$(Z$,F-2)+MID#$(Z%,F) 


)" AND MID$(Z$,F-1,1)=" 


CALL-868 


GOSUB 
GET AS: 


690 


PRINT AS: 


REM COMFATTAZIONE E RILEVAMENTO DELLA FUNTEGGIATURA 


IF F>LUN THEN 260 
THEN RETURN 


P7=PV: PVSF 


" THEN 440 
AND 


" AND SP THEN Z&=LEFT#$(Z%,F-1)+MID#$(Z$, 


GBOTO 440 


" AND O$ 


"OR DF$=";" THEN FI=F 
EFT$(Z%,F)+MID$(Z$,F+2) 


" THEN Z#$= 


LEFT$(Z$,F-2)+MID$(Z$,F): F=F-i: GOTO 380 


(segue) 


mente l’istruzione 700. Per avere 
l’output sullo schermo del video, 
basterà invece cancellare la 700. 

Il numero massimo di colonne è 
predisposto nella riga 700 a 80. Se 
avete una stampate a più colonne, 
variate opportunamente la riga 
700. 

Altre limitazioni riguardano il 
programma da formattare: i suoi 
numeri di linea devono essere mi- 
nori di 30000, e non deve contene- 
re più di 500 linee. Quest’ultimo 
parametro è presente nell’istruzio- 
ne DIM A$(500) nella riga 10 di 
PRETTY, e quindi può essere va- 
riato agendo su questa DIM, ma 
compatibilmente con la memoria 
centrale a disposizione. 

Riguardo invece alla prima que- 
stione, se un programma ha nume- 
ri di linea superiori a 30000 si può 
cambiare questo valore nel file AP- 
PRINT (creandone quindi un al- 
tro, con un valore opportuno). 


Regole di formattazione 


Le regole di formattazione usate 
dal programma sono principalmen- 
te le seguenti: 


1. Il listato viene eseguito su un 
numero di colonne che l’utente 
specifica prima della stampa. 

2. Per contenere la lista entro que- 
sto numero il programma spez- 
za le istruzioni troppo lunghe 
secondo queste regole: 

e le singole parole chiave non 
vengono mai divise; 

e incasodi “:”, di“+” o di “;” 
il programma provvede a 
spezzare le frasi in questi 
punti; 

© il programma cerca inoltre, 
per quanto possibile, di evita- 
re di spezzare le stringhe in- 
cluse fra virgolette. 

3. Gli spazi vengono distribuiti in 
questo modo: 

e uno spazio sempre dopo “:” 

e nessuno spazio (diversamente 
dal listato Apple che ne di- 
stribuisce generosamente 
ovunque) attorno ai dieci ca- 
ratteri della linea 310 e prima 
delle virgolette. 


390 


400 


410 
420 
430 


440 
450 
460 
470 
480 
490 
500 
sio 
520 
530 
540 
550 


560 
570 
580 
590 
600 
610 
620 
630 


640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780: 
790 
BOO 
Bio 
820 


830 
840 


850 


860 
870 
880 
890 
9700 
sio 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 


1030 
1040 


1050 
1060 
1070 


Segue listato 3. 


IF MID$(Z$,F,1)=":" AND MID$(Z$,F+1,1)<>" “ THEN Zs= 
LEFT$(Z$,F)+" "+MID$(Z$,F+1) 

IF MID$(Z$,F,1)=":" AND MID$(Z$,F-1,1)=" " THEN Z8= 
LEFTS$ (Z$,F-2)+MID$(Z$,F): F=F-1: GOTO 400 

IF F>LUN THEN 430 


IF MID$(Z%,F,1) "THEN DF=F 
IF M1D$(Z$,F-1,2)="FN" AND MID$(Z$,F+1,1)=" “ THEN 2$= 
LEFT$(Z$,F)+MID$(Z$,F+2): GOTO 4350 
NEXT F 
RETURN 
REM 
REM SPEZZAMENTO EVENTUALE DELLA FRASE 
REM 
P7=0: SP= GOSUB 200 


IF LEN(Z$)<LUN THEN PRINT Z$: RETURN 

IF AP=1 THEN 910 

IF MID$(Z$,LUN,1)=CHR$(34) THEN 1050 

AC=0: X3=0 

IF DP THEN PRINT LEFT$(Z$,DP): Zs=" "+MID$ (Z$, DP+2): 
GOTO 500 

FOR J=LUN+1 TO 7 STEP-1 

IF J=LUN+1 THEN 600 È 

IF MID$(Z$,J,1)=CHR$(34) THEN X3=ABS(X3-1) 

IF X3=1 THEN 610 

IF MID$(Z%,J,1)=" "“ THEN 620 
NEXT J 

IF J>PI AND J>7 THEN 650 

IF PI THEN PRINT LEFT$(Z$,PI): Z 
GOTO 500 
\J=LUN 

PRINT LEFT$(Z$,J): Z$=" "+MID$(Z$,0+1): GOTO 500 
RETURN 

REM 

REM SEZIONE STAMPA 

REM 

PRÉ 1: PRINT CHR$(9); "SON" 

HOME 

FOR I=1 TO N: Z$=A$(I): GOSUR 490 

IF PEEK(-16384)>127 THEN POKE-16368,0 

NEXT I: PRINT 

PR# 0: RETURN 

REM 

REM GIUSTIFICA A SINISTRA LE ISTRUZIONI 

REM 

IF LEFT$(A$(1) 1) 
FOR I=1 TON 

Jai 
AZASC(MID$(A$ (I) ,J,1)): AZA-128XINT(A/128): 

IF (A>47 AND A<58) OR A=32 THEN J=J+1: GOTO 820 
IF J>6 THEN 850 

FOR K=J TO 6: 


"+MID$ (Z$,PI+1): 


" THEN GOTO 870 


A$(I)=LEFT$(A$(I),J-1)+" "+RIGHT$(A$(I),LEN(A$(I))-J+1): 
NEXT 

IF MID$(A$(I) ,7,1)=" " THEN A$(I)=LEFT$(A$(I) ,6)+ 
MID$(A$(I),8): GOTO 850 

NEXT I 

X=FRE (0): RETURN 

REM 


REM SPEZZA LE STRINGHE FRA VIRGOLETTE 


THEN 1050 

FOR W=PV TO LEN(Z$): IF MID$(Z$,W4,1)=CHR$ (34) THEN 940 
NEXT W 

IF W-FV>LUN THEN GOTO 1050 

FOR DR=PV TO 7 STEP-1 

D$=MID$ (Z$,DR,1) 

IF MID$(Z$,DR,5 
IF MID$(Z$,DR,S 


"PRINT" THEN DR=DR+4: DU=DR+1: GOTO 10 
"INFUT" THEN DR=DR+4: DU=DR+1: GOTO 10 
R+2: GOTO 1040 

OR D$="+" THEN DU=DFR+1: GOTOQ 1040 


FOR DR=FV TO 7 STEP-i: IF MID$(Z$,DR.1)=" " THEN DU=DR+1: 
GOTO 1040 

NEXT DR: DR=FV-1: DU=DR+1 

PRINT LEFT$(Z$,DR): Z6=" "+MID$(Z$,DU): AC=i: 
VIR=VIR-1: GOTO 500 

REM TAGLIO "I 

FRINT LEFT$(Z$,LUN): Z$=" "#MID$(Z$,LUN+1) 

AC=1: GOTO 500 


Estensioni e miglioramenti 


Molti miglioramenti sono possi- 
bili. La questione della velocità si 
può risolvere compilando il pro- 
gramma PRETTY. Attualmente, 
per un programma di 250-300 linee 
il tempo di stampa è abbastanza 
elevato (20-30 minuti). Con la 
compilazione dovrebbe scendere a 
5-7 minuti. 

Altri miglioramenti riguardano 
la forma: sarebbe interessante in- 
cludere nel programma un RE- 
NUMBER opzionale che rinume- 
rasse tutte le linee a partire, per 
esempio, da 10 e con incremento 
10 (o con valori variabili, dati in in- 
put). Infine potrebbe essere utile 
far precedere i numeri di linea ai 
quali c'è un riferimento (GOTO, 
GOSUB) da una freccia, per indi- 
care che a quelle istruzioni si può 
arrivare anche dall’esterno. 


Conclusioni 


Il programma è utile ed interes- 
sante di per sé. Ma la tecnica di ba- 


IMPERIAMO IL BASIC 


ELECTRA - BALLY 


ANTEPRIMA: IL NUOVO E.T. 
TUTTI | VIDEOGIOCHI DI LAS VEGAS 


UNDICI NUOVI GIOCHI PROVATI PER VOI 


se utilizzata per manipolare un 
programma Basic come text file 
può essere di spunto per creare im- 
paginatori più elaborati, program- 
mi di conversione (per esempio da 
un Basic ad un altro) od altri più 
impegnativi programmi di editing. 
Lasciamo ai lettori l’onere di ulte- 
riori esperimenti. 


Spiegazione delle principali routine 


10-130 Legge da disco il program- 
ma da impaginare e lo trasferi- 
sce nella matrice A(I) 

200-450 Elimina spazi superflui, 
ne aggiunge se mancanti, con- 
trolla le stringhe alfanumeriche 
tra virgolette 

490-660 Controlla lo spezzetta- 
mento delle istruzioni per man- 
tenersi entro i limiti del numero 
di colonne 

680-750 Preleva dalla matrice 
A(I) ogni istruzione per elabo- 
rarla 


770-870. Incolonna a sinistra i nu- 


meri di istruzione (solo per Ap- 
plesoft poiché l’Integer li ha già 


incolonnati) 

890-1040 Evita che vengano spez- 
zate stringhe più corte del nume- 
ro di colonne 

1060-1070 Spezza le stringhe più 


lunghe del numero di colonne 


Questo programma è di- 
sponibile su un floppy disc 
per l'Apple Il. Vedete in fon- 
“Servizio 


do alla rivista il 
Programmi”. 
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DIZIONARIO DI BASIC 


(continua dal numero precedente) 


CHR$ funzione 


La funzione CHR$ restituisce il carattere rappre- 
sentato dal codice ASCII dato come argomento. Per 
esempio CHR$(67) è il carattere B. La funzione 
CHR$ permette di stampare caratteri non normal- 
mente accessibili dalla tastiera. (Si veda il riquadro 
sul codice ASCII). 


Se il tuo computer non l’ha 

Può essere simulata creando una siringa con tutti i 
caratteri ASCII (escluse le virgolette che servono da 
delimitatori): 


A$=“D!0$%?()*+,—.?20123456789...UVWXYZ” 


Il primo dei caratteri ASCII stampabili è lo spazio 
(qui indicato con O), codice 32. Se si vuole stampare 
una A si deve sottrarre 31 dal codice di A, che è 65. 
Quindi 65—31=34, e MID$(A$,34,1), o A$(34,34) 
secondo l’interprete, significherà il carattere A. 


CHR$(65)=MID$(A$,34,1) 
e in generale, per N maggiore di 31, 
CHR$(N)=MID$(A$,N-31,1). 


Talvolta CHR$ viene sostituita con CHR, 
CHAR$, CHAR. 


CINT funzione 


Nel TRS-80 livello II CINT converte un numero 
nel suo valore intero (C=converte, INT=intero). Il 
numero assegnato a CINT non può essere maggiore 
di +32767 o minore di —32767. Per esempio, 
CINT(-4.65) stampa —S. 


° (accento circonflesso) operatore 


È il simbolo dell’elevamento a potenza. Per esem- 
pio 3°2 significa 3° cioè 9. In alcuni calcolatori è so- 
stituito dalla freccia verso l’alto (vedi). L’accento cir- 
conflesso è usato nell’Apple e può essere sostituito 
da CHR$(94) e CHR$(222). 


CLEAR comando, istruzione 


Azzera tutte le variabili e le stringhe. Talvolta può 


essere seguito da un numero, che specifica il numero 
di byte da riservare per la memorizzazione delle 
stringhe. 

Per esempio 10 CLEAR 150 riserva 150 byte in 
memoria centrale per la memorizzazione delle strin- 
he. 
3 In alcuni interpreti è sostituito da CLR (vedi). 


CLOAD comando 


Il comando CLOAD viene usato da alcuni inter- 
preti per caricare un programma da un nastro su cas- 
setta (C=cassetta, LOAD=carica). Per esempio 
CLOAD“A” cerca il programma di nome “A” su na- 
stro e lo carica in memoria. Se non è specificato un 
nome, viene caricato il primo programma incontrato. 

Talvolta CLOAD è sostituito da LOAD (vedi). 


CLOSE comando, istruzione 


Viene utilizzato per chiudere un file aperto da un 
comando o istruzione OPEN. Per esempio CLOSE 1 
chiude il file il cui numero è 1. 


CLR comando, istruzione 


Il comando CLR azzera tutte le variabili. In Ap- 
plesoft e in Basic TRS-80 livello II viene usato 
CLEAR (vedi). In Integer Basic e nel PET Basic, 
viene usato CLR. 


parola 7 ome viene usata. (comando, 
ATN funzione (ANSI)  !STfUBione, funzione 
N operatore, Tasto) 
Significa che la 
ha una Sintassi pc 
Nello standard ANSI 
fer il Basic minimale 
ANS X360- 1970 


DEFINIZIONE 
DESCRIZIONE 


BVENTUALI 


DIFFUSIONE, 
ABBREVIAZIONI 


SIMULAZIONE Se il tuo computer non l'ha 
$E Non E 


PRESENTE 


UTILIZZAZIONI 
DI PARTICOLARE 
IMPORTANZA 


Importanti utilizzazioni 


Come usare questo dizionario 
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DIZIONARIO DI BASIC 


Il codice ASCII 


Il codice ASCII (American Standard Code for Infor- 
mation Interchanges) è la codifica maggiormente usata 
nei personal computer per rappresentare lettere, nume- 
ri, caratteri grafici, funzioni speciali e caratteri speciali. 
Altri codici usati sono il BCD (binary coded decimal: 
decimale codificato binario) e l’EBCDIC (extended bina- 
ry coded decimal interchange code). BCD è un codice a 
sei bit, mentre ASCII e EBCDIC sono codici a otto bit. 


I codici ASCII, essendo formati da 8 bit, sono 256 e 
vanno da 00000000 a 11111111 (in esadecimale da $00 a 
$FF, in decimale da 0 a 255). In alcuni sistemi il bit più 
significativo è di controllo, e quindi i codici sono 128. 


Una volta, il codice ASCII era uniforme per tutti i 
computer. Ora ogni sistema ha un differente codice 
ASCII, ma le caratteristiche essenziali si possono riassu- 
mere come segue. 


Codici da 0 a 31 (da $00 a $1F) 

Sono codici di controllo, che ogni macchina interpreta 
diversamente (vedi tavola 1). Di solito sono disponibili 
da tastiera battendo CTRL e il tasto di una lettera, op- 
pure sono presenti con un tasto apposito. 


Codici da 32 a 90 (da $20 a $59) 

Questi sono gli stessi su quasi tutte le macchine, e rap- 
presentano le cifre, le lettere maiuscole e i caratteri spe- 
ciali più comuni (vedi tavola 2). 


Codici da 91 a 95 (da $60 a $64) 
Rappresentano alcuni caratteri speciali, diversi da si- 
stema a sistema (vedi tavola 3). 


Codici da 96 a 127 (da 865 a $7F) 
In molti sistemi questi codici sono duplicati dei codici 
da 32 a 63. 


Codici da 128 a 255 (da $8F a $FF) 
Sono funzioni speciali, ripetizione di altri codici, o ca- 
ratteri speciali o grafici. 


Per vedere tutti i caratteri stampabili del vostro siste- 
ma e il relativo codice, battete questo programma 


10 FOR X=32 TO 255 
20 PRINT X; CHR$(X), 
30 NEXT X 


CLR/HOME tasto 


Vedi CLS. 


CLS comando, istruzione 


32 


Azzera lo schermo e porta il cursore in alto a sini- 
stra. In Applesoft lo stesso effetto si può ottenere 


con HOME (vedi) o con ESC seguito da SHIFT @. 


Con GR e HGR si azzera lo schermo ma si passa al 


modo grafico; in Integer Basic si può usare 


CALL—936. 

Nel PET Basic il tasto SHIFT CLR/HOME azzera 
lo schermo: si può usare anche tra le virgolette di una 
istruzione PRINT, o con PRINT CHR$(147). Il solo 
tasto CLR/HOME, senza SHIFT, riporta il cursore 
in alto a sinistra, senza azzerare lo schermo. Anche 


questo comando si può usare tra le virgolette di una 
istruzione PRINT o con PRINT CHR$(19). 


Esa 
$00 
$01 
$02 
$03 
$04 


$05 
$06 
$07 
$08 
$09 


$0A 
$0B 
$0C 
$0D 
$0E 
$0F 
$10 


$11 
$12 
$13 
$14 
$15 


$16 
$17 


$18 
$19 
$1A 
$1B 
$1C 
$1D 


$1E 


$1F 


Dec 


31 


Sigla 
NUL 
SOH 
STX 
ETX 
EOT 


US 


Significato 

Null (riempitivo) 

Start of header (inizio testata) 

Start of text (inizio testo) 

End of text (fine testo) 

End of transmission (fine trasmis- 
sione) 

Enquire (richiesta) 

Acknowledge (conferma) 

Bell (campanello) 

Backspace (spazio indietro) 
Horizontal (tabulazione orizzonta- 
le) 

Line feed (avanzamento linea) 
Vertical tab (tabulazione verticale) 
Form feed (avanzamento foglio) 
Carriage return (ritorno carrello) 
Shift out 

Shift in 

Data link escape (commutazione 
trasmissione) 

Device control 1 

Device control 2 

Device control 3 

Device control 4 

Negative acknowledge (conferma 
negativa) 

Synchrounous idle (sincronizzazio- 
ne 

ci of transmission block (fine del 
blocco di trasmissione) 

Cancel (non valido) 

End of medium (fine registrazione) 
Substitute (sostituzione) 

Escape (commutazione) 

File separator (separazione file) 
Group separator (separazione grup- 
pi) 

Record separator (separazione re- 
cord) F 
Unit separator (separazione unità) 


Tavola 1. I codici ASCII da 0 a 31 


DIZIONARIO DI BASIC 


Esa Dec Carattere Esa Dec Carattere 
$20 32 spazio $3EM62, > 
$21 33 i $3F 63 ? 
$22 34 I $40 64 @ 
$23 35 * $41 65 A 
$24 36 $ $42 66 B 
$25 37 % $43 67 (© 
$26 38 & $44 68 D 
$27 39 E $45 69 E 
$28 40 ( $46 70 F 
$29 41 ) $47 71 G 
$2A. 42 * $48 72 H 
$2B 43 + $49 73 I 
$2C 44 5 $4A 74 J 
$2D 45 = $4B 75 K 
$2E 46 È $4C 76 L 
$2F 47 / $4D . _77 M , 
$30 * 48 0 $4E 78 N 
$31 49 ili $4F 78) SO 
$32 50 2 $50 80 Pit 
$33 SI 3 $51 81 Q 
$34 52 4 $52 82 R 
$35 53 DI $53 83 S 
$36 54 6 $54 84 ID 
$37 55 7 $55 85 U 
$38 56 8 $56 86 Vv 
$39 57 9 $57 87 W 
$3A 58 x $58 88 x 
$3B 59 ; $59 89 NE 
$3C 60 < $5A 90 Z 
$3D 61 = 

VARA AAA RR PALO AR E 1 AN E O | 


Tavola 2. / codici ASCII da 32 a 90 


CMD comando 


Nel PET Basic, il comando CMD è simile a 
PRINT+# eccetto che in questo modo il computer re- 
sta connesso con il dispositivo esterno. PRINT e 
LIST vengono quindi effettuate sul dispositivo ester- 
no. Questa è la procedura per listare un programma 
su stampante 


Esa Dec Apple II Commodore TRS-80 Atom 


$61 91 [ “I î @ inverso 
$62 92 \ \ A inverso 
$63 93 ] ] —  B inverso 
$64 94 n Î Ss C inverso 
$65 95 ei. - pi, D inverso 


Tavola 3. I codici ASCII da 91 a 95 su alcune macchine. 


OPEN 1,4: CMD 1: LIST 
dove 1 è il numero logico del dispositivo, 4 il numero 
fisico (solitamente la stampante). Completata la lista, 
il dispositivo va chiuso con 


PRINT#1: CLOSE 1 


COLOR istruzione e comando 


Nell’Apple specifica il colore da visualizzare sullo 
schermo. Per esempio COLOR=3 indica che i pros- 
simi punti da visualizzare saranno viola. 


Parametro Bianco Bassa Alta 
e nero risoluzione risoluzione 
0 nero nero nero l 
1 4 bianco magenta verde 
2 4 bianco blu scuro blu 
3 4 bianco viola bianco 1 
4 4 bianco verde scuro nero 2 
5 grigio grigio 1 rosso 
6 4 bianco blu medio violetto 
7 $ bianco blu chiaro bianco 2 
8 4 bianco marrone - 
9 3 bianco arancio - 
10 grigio grigio 2 = 
ll 4 bianco rosa - 
12 4 bianco verde - 
13 { bianco giallo - 
14 f bianco acquamarina - 
15 bianco bianco - 
CONT comando 


È una abbreviazione di “continua” e fa ripartire un 
programma dopo che è stato fermato da STOP, END 
o con il tasto BREAK o STOP. CONT non permette 
la ripartenza dopo un errore, un editing, un NEW. 

Sono anche usate le abbreviazioni CON (Integer 
Basic) e C. (TRS-80 livello I). 


COS (ANSI) funzione 


La funzione COS fornisce il coseno dell'argomento 
tra parentesi. Per esempio, Y=COS(X) assegna alla 
variabile Y il valore del coseno di X, angolo espresso 
in radianti. 
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CANARD 


DI TECNICA 
DIGITALE 


a 74 IL PROGRESSO 
DELL'ELETTRONICA 
PER IL TUO PROGRESSO PROFESSIONALE 


Il DIGILAB, il laboratorio digitale che 
rimarrà di tua proprietà 


Il minuscolo computer che regola una lavabiancheria, il video- 
terminale che permette di sorvegliare e di dirigere il montag- 
gio robottizzato di un'automobile. Ecco solo due esempi 
dei progressi dell’elettronica. Progressi continui che ri- 
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. Duplicazione abusiva, pericolo 
) 


reale o timore infondato? 


Conviene difendersi 
dalla pirateria 
software? 


di J. Grout 


Questo articolo, pur risentendo del- 
l’ambiente in cui opera l’autore, 
quello del mercato americano, ci è 
sembrato interessante da proporre 
ai nostri lettori per la chiara analisi 
del problema della pirateria softwa- 
re. 


Traduzione di Flavio Santini 


ria di software può essere in 
parte collegato ad una coscien- 
za sporca. 

Pensate al programmatore che 
lavora sodo per realizzare un pro- 
gramma che gli farà guadagnare un 
sacco di soldi. Dopo aver speso 
molto tempo per eliminare tutti gli 
errori, il programmatore inserisce 
una copia del prodotto con la sua 
documentazione in una busta e 
poi, mentre sta per spedirla, è as- 
salito da un dubbio. “Non sarà che 
il produttore di software si impos- 
sessa del mio programma e mi la- 
scia con un pugno di mosche?” E 
nella maggior parte dei casi è suffi- 
ciente esaminare una qualsiasi bi- 
blioteca di software per capire che 
la duplicazione abusiva di pro- 
grammi si sta diffondendo. 

Alla prima conferenza sulla pro- 
tezione del software del Regno 
Unito, Julian Allason, un ex com- 
merciante di software, nella sua 
nota di apertura ha affermato: “Se 
dovessi ricominciare la mia carriera 
nel mondo della programmazione, 
farei il pirata!”. Molti sorridevano 
sornioni. 

Tutti sanno che spesso è sor- 
prendentemente facile copiare, e 
quindi trafugare, un programma 
per computer. Nella stessa confe- 
renza, uno che si autoproclamava 
pirata ha chiesto a tutti quelli che 
non avevano mai fatto una copia 
abusiva di un programma di alzare 


I timore della dilagante pirate- 


la mano. In tutta la sala si sono al- 
zate meno di cinque mani. 

Se nel programma non è previsto 
un qualche tipo di protezione, la 
duplicazione è la cosa più facile di 
questo mondo. Se invece il pro- 
gramma è protetto, i maghi del 
software possono sbizzarrirsi nel 
tentare di copiarlo. 

Attualmente si sta solo affron- 
tando il problema di quali siano i 
canali di sviluppo della pirateria 
del software. Alcuni sostengono 
che la maggioranza dei furti di soft- 
ware avviene su scala amichevole: 
un dilettante copia un certo pro- 
gramma e lo passa ad un collega 
interessato. Una panoramica sugli 
utenti di PET del Regno Unito 
mostra che per ogni prodotto com- 
perato, ce ne sono due e mezzo di 
duplicati. I dirigenti di industria 
forniscono spesso rapporti di uno a 
dieci tra i prodotti acquistati e 
quelli rubati. 

Wayne Green, editore di Micro- 
computing e di altre riviste e fon- 
datore della Instant Software, offre 
una taglia di 10 000 dollari per ogni 
informazione su ladri di software. 
Potrebbe essere abbastanza per 
convincerci a denunciare come pi- 
rata il nostro migliore amico. So- 
prattutto è un dato che sottolinea 
la serietà con cui viene trattato il 
problema. 

Ma quanto grave è il problema 
della pirateria? È il caso che il pro- 
grammatore, nel presentare il suo 


35 


primo gioiello, dubiti che la casa di 
software si duplichi il prodotto e lo 
diffonda a sua insaputa? La politi- 
ca più redditizia nel mondo della 
programmazione è proprio la diso- 
nestà, come diceva scherzando Ju- 
lian Allason? 

Come ha detto in un suo articolo 
Christopher Kern, la rilevanza eco- 
nomica del furto di software tra gli 
hobbysti è piuttosto ridotta. Il vero 
problema sorge quando i pirati du- 
plicano programmi commerciali e li 
diffondono su larga scala. Ma le 
grandi case, come l’Atari, con ren- 
dite in gran parte dovute ai giochi 
per computer e quindi più soggette 
alle attenzioni di trafugatori hob- 
bysti, possono non essere d’accor- 
do. Chi sono i pirati di cui parlia- 
mo? 


Tre categorie di pirati 


“Credo che i pirati di software si 
dividano in tre categorie” ha detto 
Ken Klein, dirigente della Stone- 
ware Microcomputer Product, che 
ha prodotto il noto programma DB 
Master per la gestione di basi di da- 
tu. 

“C’è chi duplica i vostri prodotti 
e li vende sottoprezzo. Credo che 
sia il caso più odioso perché diso- 
nesto in ogni senso del termine.” 

Klein ritiene che questo genere 
di pirata non sia un commerciante 
di software, ma piuttosto una per- 
sona estranea che, possedendo una 
buona preparazione tecnica, è in 
grado di accedere ai programmi. 

“Sarebbero i primi nella lista 
delle persone da mettere in galera” 
ha detto Klein. “Un altro gruppo 
di pirati è probabilmente da ricer- 
carsi nei club di programmatori. 
Non voglio parlar male di tutti i 
club. Alcuni svolgono funzioni utili 
e non ho proprio niente contro di 
essi. Ma esistono altri club che 
hanno come scopo principale l’ac- 
quisto di un unico programma per- 
ché tutti i membri possano utiliz- 
zarlo. 

Per poter programmare a tempo 
pieno, bisogna poter guadagnare 
bene. Se ogni prodotto che un pro- 
grammatore realizza viene trafuga- 
to, ci sono poche possibilità che 
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questi venga dovutamente ricom- 
pensato. E se non può permettersi 
di vivere scrivendo programmi, de- 
ve dedicarsi a qualcos’altro. A lun- 
go termine ciò significa produrre 
meno programmi. E sarà impossi- 
bile sviluppare soluzioni per i pro- 
blemi reali della nostra società”. 

Klein spiegava che la produzione 
di un unico programma, DB Ma- 
ster, ha richiesto cinque anni di la- 
voro. Sosteneva che sarebbe estre- 
mamente duro rinunciare ai profitti 
ad esso relativi. “Il pirata di soft- 
ware non pensa alle paghe di 30 di- 
pendenti ed ai costi di produ- 
zione”, aggiungeva Klein. 

Secondo lui la terza classe di pi- 
rati è costituita da coloro che du- 
plicano i programmi per distribuirli 


agli amici. 

“Di questi, tutto sommato, non 
è il caso di lamentarsi. Hanno delle 
ragioni comprensibili: vogliono so- 
lo farsi un piacere. Capita molto 
spesso. Se potessi introdurmi nei 
loro affari e dire: ‘Guardate che 
non è onesto; non potete farlo! 
probabilmente smetterebbero. Il 
loro scopo non è quello di guarda- 
gnare. Lo fanno per amicizia.” 

Quando ho chiesto a Klein se ha 
avuto a che fare con molti pirati di 
software, mi ha risposto che ne ha 
visti alcuni, ma non molti. Molti 
commercianti avvertono che le in- 
formazioni sulla diffusione del fe- 
nomeno della pirateria nell’indu- 
stria dei microcomputer sono mol- 
to vaghe. 


Quanti sono i pirati? 


“Credo di non aver mai parlato 
con un pirata di software”, afferma 
Doug Carlston della Broderbund 
Software, produttrice di Apple Pa- 
nic. “Certamente la pirateria esi- 
ste, ma io sono l’ultima persona 
con cui un pirata si confiderebbe.” 

“Il concetto è confuso per molta 
gente. La dispersione delle infor- 
mazioni, la loro distribuzione, sono 
considerate una buona cosa. Sco- 
prirete che molti dei nostri autori, 
se fossero onesti, ammetterebbero 
di possedere, nelle proprie biblio- 
teche, materiale di cui si sono ap- 
propriati senza pagare. Credo che 
sia così dappertutto.” Carlston du- 
bita che un pirata di software possa 
fare molti soldi. 

“Come può vendere il suo pro- 
dotto? Sarebbe costretto a portarlo 
in giro chiuso nel baule della mac- 
china mantenendo il segreto? Non 
credo che i commercianti facciano 
così. Conosco dei commercianti 
che distribuiscono copie di giochi 
come stimolo all’acquisto dei loro 
computer. Ma sono casi rari. 

I commercianti si sforzano di 
vendere dei prodotti. Una volta si 
puntava sull’hardware, ora i più 
lungimiranti considerano come 
sempre più importante il prodotto 
software. Fino al punto che ciò fa- 
vorisce il diffondersi della pirate- 
ria, cosa per loro non certo conve- 
niente. 

È possibile addirittura che siano 
i commercianti stessi a duplicare 
abusivamente dei programmi. Ho 
avuto sentore di grosse case dove 
la pirateria è giunta a livello ende- 
mico, dove è uno scherzo per un 
dipendente passare un programma 
ad altri 1500 colleghi. Conosco 
gente che compera un programma 
per le paghe e se ne serve in 195 
posti diversi. Non comperano 195 
copie. Ed il fenomeno è in ascesa.” 

Alla domanda se una casa editri- 
ce di software possa, di nascosto, 
copiare un programma e diffonder- 
lo senza il consenso del program- 
matore, Carlston ha risposto con 
un deciso no. Ha precisato che ci 
sono rapporti molto stretti tra pro- 
grammatori di computer e gruppi 


di utenti. Secondo Carlston, se un 
produttore di software si imposses- 
sasse del prodotto offertogli dal- 
l’autore, la voce si diffonderebbe 
immediatamente. 

“Non credo che i venditori gua- 
dagnino su prodotti trafugati. Se 
qualcuno ne mettesse sul mercato 
uno, dicesse di averlo realizzato e 
ne proclamasse l’originalità, non 
riuscirebbe a diffonderlo. I com- 
mercianti al minuto ed i distributo- 
ri sarebbero molto a disagio; ci ar- 
riverebber» dozzine di telefonate 
per chiederci che cosa sta succe- 
dendo.” 

A proposito dell’esitazione dei 
venditori a trattare copie abusive, 
Carlston ha detto: “Potenzialmente 
ci sono delle responsabilità. Quan- 
do l’Atari si mise a perseguire co- 
loro che avevano duplicato il gioco 
del Pac Man non si limitò a far 
causa alle case di software, ma si 
rivolse a tutti gli anelli della cate- 
na: un dettagliante di Washington, 
delle case di vendita per posta, dei 
distributori. Volevano prenderli 
tutti! In linea di massima, non cre- 
do che la pirateria sia un proble- 
ma. La sua incidenza non è rile- 
vante. Se un programmatore non è 
tranquillo, stipuleremo con lui un 
tacito contratto. Cerchiamo di 
mantenere la massima sicurezza. 
Di notte chiudiamo i programmi in 
posti sicuri.” Carlston ha anche dif- 
fidato i programmatori a spedire 
copie non protette agli amici. Con 
grande sorpresa dopo pochi giorni 
scoprirebbero che il loro program- 
ma è diffuso in tutto il paese. 

Carlston ha raccomandato di 
non fidarsi delle parole. Egli è uno 
dei molti produttori di software 
che hanno espresso la preoccupa- 
zione che la pirateria danneggi la 
reputazione degli editori. Al di là 
delle difficoltà di distribuzione dei 
prodotti abusivi, il timore della pi- 
rateria potrebbe avere l’effetto di 
scoraggiare la presentazione di un 
programma ad una casa di softwa- 
re. 


Il software è protetto dalla legge? 


Sembra che nel mondo dei mi- 
crocomputer sia diffusa l’opinione 


che il software è protetto dalla leg- 
ge, ma non dal sistema legale. 

I casi giudiziari relativi alla du- 
plicazione abusiva di programmi 
per computer si sono rivelati quasi 
sempre sfavorevoli al pirata; tutta- 
via, la quantità di denaro necessa- 
ria per perseguire legalmente una 
trasgressione dei diritti di produ- 
zione rende il ricorso alla giustizia 
difficilmente proficuo. Troppo 
spesso il rimborso dei danni subiti 
è di gran lunga inferiore alle spese 
sostenute. 

Irwin Taranto della Taranto and 
Associates Inc., produttore di soft- 
ware specializzato in prodotti com- 
merciali e servizi di supporto, ha 
commentato il problema legale. 

“Anche se le leggi fossero per- 
fette, ci vorrebbero grosse spese 
per garantirsi la loro protezione. 
Potrebbero essere necessari 50000 
dollari per risparmiarne 5. Il siste- 
ma legale non è in grado di risolve- 
re il problema. Potrei trovarvi una 
decina di casi. Ne cito uno. Ho so- 
stenuto una spesa di 20000 dollari 
per un processo che me ne ha rim- 
borsati 1000. Che guadagno! Se 
fossi andato avanti mi sarebbe co- 
stato 50000 dollari; ho pensato be- 
ne di fermarmi a 20000. Sì, cer- 
chiamo di difenderci con la legge; 
ci serviamo dei nostri avvocati per 
scrivere diffide. Ma in pratica l’im- 
presa è ardua.” 

Taranto ha soggiunto, comun- 
que, di non aver mai introdotto nei 
suoi programmi una qualche forma 
di protezione. Questa decisione è 
conseguenza soprattutto della sua 
filosofia commerciale. 

“Io mi occupo di commercio. 
Vendo sistemi commerciali, non 
giochi. Io vendo il fatto che un 
cliente può chiamarmi in qualsiasi 
momento per avere il supporto di 
cui ha bisogno per continuare a la- 
vorare. Indipendentemente da 
quale sia il suo problema, può ve- 
nire qui o chiamarmi al telefono. 

Non mi piace il fatto che qualcu- 
no si duplichi un programma e lo 
dia ad un amico. Ma la cosa non 
mi preoccupa, perché non convie- 
ne né a chi lo offre, né a chi lo ri- 
ceve. Spiego perché. Se mi accorgo 
che un mio cliente ha diffuso il mio 


37 


programma, non gli rivolgo più la 
parola. Così facendo egli rinuncia 
al mio sostegno, e perde il 90 per 
cento del valore del mio program- 
ma. In secondo luogo, neppure 
l'acquirente può chiamarmi per 
avere la mia consulenza. Se gli so- 
no necessarie cinque, sei, dieci ore 
per risolvere da solo un problema, 
alla fine tutto risulterà più dispen- 
dioso che se avesse comperato re- 
golarmente il programma. 

Di solito i miei clienti non dif- 
fondono i programmi. Li mostre- 
ranno, ne consiglieranno l’acqui- 
sto, ma quando qualcuno è interes- 
sato, viene da me. Si può trafugare 
il mio software, non la mia consu- 
lenza. 

Sono convinto che se adattate il 
vostro programma alle necessità 
del cliente, sarà suo interesse ve- 
dervi continuare proficuamente la 


vostra attività. 


Come opporsi alla pirateria 


L’arma di Taranto contro la du- 
plicazione abusiva di software è la 
persuasione, a partire dal fatto che 
il produttore originale del pro- 
gramma può effettuare la manu- 
tenzione più efficientemente. Ma 
le case produttrici di software han- 
no preso in considerazione nume- 
rose altre contromisure. 

Prescindendo dai risultati a cui 
può portare, il ricorso alla giustizia 
provoca dei disagi psicologici che 
sono un buon deterrente per i pira- 
ti. Nel caso di B. B. Roberts, per 
sua stessa ammissione pirata di 
software nella zona di Las Vegas, 
l’Atari ha addirittura assoldato un 
detective. Nel giro di tre giorni 
B.B. Roberts è stato scoperto ed 
indotto a scrivere un articolo dove 
spiegava tutti i fastidi che aveva 
avuto. 

Altre possibilità sono l’uso di 
marchi di fabbrica più o meno visi- 
bili, ROM per sola esecuzione, e 
scatole nere elettroniche per esclu- 
dere il pirata ficcanaso. 

Per ora molti produttori sembra- 
no credere più nell’ingegno tecnico 
dei pirati che nei sistemi di prote- 
zione che potrebbero creare. 
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Jim Ayers, consulente di pro- 
grammazione e programmatore 
della Mill Valley, California, ha 
detto la sua a proposito dei metodi 
di protezione del software. 

“Questi accorgimenti sono 
ridicoli”, ha detto Ayers, ed ha ci- 
tato il caso di un giovane valido 
programmatore, membro dell’ Ap- 
ple Core (un club di utenti di Ap- 
ple di San Francisco). Ayers ha 
detto che il giovane aveva scritto 
un programma di copia a nibble 


per inserirlo nella libreria dell’Ap- 
ple Core. Per certa gente i pro- 
grammi di copia a nibble sono so- 
prattutto un mezzo per copiare 
abusivamente dei programmi pro- 
tetti. 

Ayers ha continuato spiegando 
che l’offerta del giovane program- 
matore riuscì quasi a creare una 
spaccatura nel club. Alcuni mem- 
bri affermarono che, accettando il 
programma nella libreria, si sareb- 
be incentivata la pirateria. Quando 
terminò la discussione se accettare 
o respingere il programma, tutti i 
dirigenti del club minacciarono di 
dimettersi, e la sezione internazio- 
nale si stava preparando a disdire 
lo statuto. 

“Poi una casa di software del 
luogo che cercava un programma- 
tore si rivolse a me. Io feci il nome 
del ragazzo. Dissi loro che doveva- 
no dargli la possibilità di fare qual- 
cosa di impegnativo in modo che 


non gli rimase tempo per scrivere il 
pericoloso programma di copia.” 
Ma non accettarono il consiglio. 

L’idea di Ayers è che molta gen- 
te è in grado di superare le tecni- 
che di protezione dei programmi e 
che quindi non vale la pena di svi- 
lupparle, spendendo altro denaro. 

“Temo che la pirateria si stia svi- 
luppando. Non ci sono metodi di 
protezione sicuri. Ma spero che il 
tessuto morale del paese non sia 
così logoro da non poter contare 
ancora sull’onestà.” 

Molti produttori di software so- 
no d'accordo. Tra quelli che abbia- 
mo intervistato, la maggior parte 
ha mostrato di fidarsi dell’onestà di 
base dei propri clienti. Nessuno ha 
riconosciuto di aver fatto affari 
grazie alla pirateria. I produttori di 
programmi per applicazioni com- 
merciali si sono detti fiduciosi che 
gli uomini d’affari in media non 
siano interessati a programmi du- 
plicati abusivamente. E che com- 
perino il software dai venditori le- 
gittimi piuttosto che arrischiare i 
loro guardagni per il risparmio of- 
ferto da una copia abusiva. 

Ayers ha detto anche di aver sa- 
puto di una casa di computer pirata 
di software. Tutti i suoi clienti ave- 
vano lo stesso numero di serie sul 
sistema operativo e ricevevano ma- 
nuali di documentazione fotocopia- 
ti. Ayers ha riferito che ad un certo 
punto sembrava che il pirata avesse 
venduto lo stesso computer due 
volte. Il suo errore si rifletté su di 
lui. “Rimase tagliato fuori”, ha af- 
fermato Ayers. 


Come può difendersi un 
programmatore? 


Un avvocato californiano esper 
to di leggi sulla tutela del software 
(che non vuole che il suo nom© 
venga riportato) ha sostenuto ch© 
gli autori di programmi possono i" 
qualche modo proteggersi contro ! 
produttori senza scrupoli. 

“Il software è protetto come tut- 
to il resto. Il programmatore è tu 
telato quanto l’autore di un libro. 
Solo la legge può impedire che un 
programma venga duplicato, così 


come è l’unico mezzo per impedire 
che si distribuiscano le fotocopie di 
un libro. E esattamente lo stesso 
problema. 

Le difficoltà dei programmatori 
derivano da due considerazioni. 
Da un lato, le autorità non applica- 
no la legge e il programmatore de- 
ve arrangiarsi da solo. 

Dall’altro, i pirati ci sono, li de- 
fraudano delle loro creazioni e li 
lasciano spesso senza possibilità di 
reagire alla perdita di guadagno su- 
bita. 

Prima dell’atto sui diritti d’auto- 
re del 1978, gli editori di piccole ri- 
viste specialistiche venivano in ef- 
fetti danneggiati dall’uso indiscri- 
minato delle fotocopie. La stessa 
cosa succede adesso con il softwa- 
re. Non si può evitare la duplica- 
zione di software se la codifica non 
viene effettuata in modo che nessu- 
no possa accedervi, nel qual caso si 
dovrebbe discutere se il prodotto è 
tutelabile, perché nessun altro può 
controllare se è stato violato. 

La legge di tutela è rimasta così 
per anni. Non c’era modo di impe- 
dire ai pianisti dei vari locali di 
suonare la musica di qualcun altro, 
e quindi di violare i diritti d'autore. 
Poi una organizzazione chiamata 
ASCAP (American Society of 
Composers, Authors and Publi- 
shers) si occupò del loro caso, con 
dipendenti pagati che controllava- 
no che ogni locale avesse pagato la 
apposita tassa annuale.” 

L’avvocato ha auspicato che an- 
che nel commercio del software si 
crei una situazione analoga. Si po- 
trebbero controllare i più noti di- 
stributori, commercianti e club per 
salvaguardare i diritti d’autore. 

“Questo è il momento propizio 
per farlo, perché il settore è ancora 
all’inizio del suo sviluppo. Se fosse 
giunto ad uno stadio più avanzato, 
tutti riterrebbero perfettamente le- 
gale duplicare il software. Credo 
che ora i membri dei club siano at- 
tenti al fenomeno, sentono che al- 
cune cose non sono proprio oneste. 
Alcuni controllori potrebbero far 
loro visita, scoprendo del software 
copiato, e quindi avvertirli con una 
lettera in cui si dice: “Ehi, siete 
stati scoperti!”. L'industria privata 


potrebbe così difendersi. 

Per assicurarsi la protezione da 
un punto di vista legale, tutto ciò 
che il programmatore ha da fare è 
registrare il programma all’ufficio 
per la tutela dei diritti d'autore. La 
formalità è semplice e veloce, e la 
tassa relativa è di 10 dollari. Il ri- 
chiedente deve allegare due copie 
del listato di programma (alcuni di- 
cono che basta un listato e le ulti- 
me dieci pagine del codice oggetto) 
provando così prima facie che il 


programma è suo. Se è in grado di 
dimostrare che un altro program- 
ma ha lo stesso listato, il tribunale 
prenderà provvedimenti. 

A Tujunga, California, si è for- 
mato un nuovo gruppo per la lotta 
contro la pirateria del software. La 
ASP (Association for Software Pro- 
tection) è una associazione senza 
scopo di lucro il cui fine principale 
consiste nell’istruire gli utenti finali 
sugli aspetti legali del commercio 
di software e di assicurare il rispet- 
to di alcune norme di comporta- 
mento all’interno dell’industria. 

Robin Robinson, presidente del- 
ASP, ha stimato che solo per il 
cinque per cento i furti di software 
sono volutamente disonesti. A_ suo 
parere la maggior parte delle viola- 
zioni di proprietà è dovuta all’igno- 
ranza sull'origine del software. I 
membri dell’ASP sperano di riusci- 
re a fugare la falsa immagine diffu- 
sa sugli accordi per la proprietà del 
software. 


Robinson suggerisce che sia 
l’ASP a introdurre presso i suoi 
membri la pratica del rispetto del 
software e che li aiuti a creare un 
mercato chiuso a coloro che non 
sono in regola. 

Come consiglio ai programmato- 
ri inesperti, Robinson ha proposto 
loro di chiedere ai produttori un 
contratto esplicito, prima di conse- 
gnare qualsiasi programma. Poi, se 
il contratto verrà violato, il pro- 
grammatore consulterà un avvoca- 
to per far valere i propri diritti. 

Dovrebbero esserci anche alcune 
disposizioni per i produttori re- 
sponsabili della distribuzione del 
programma. Robinson ha asserito 
che, anche se il ricorso ad un avvo- 
cato può sembrare una precauzio- 
ne piuttosto costosa, può garantire 
la sopravvivenza ai programmatori. 


Ma sotto sotto siete anche voi 
pirati? 


La stima di Robinson che solo il 
cinque per cento dei furti di pro- 
grammi siano fatti su commissione 
impone di chiedersi se la pirateria 
è effettivamente un problema così 
serio, come qualcuno sostiene. E 
probabile che le stime crescano e 
diminuiscano proporzionalmente a 
quanto chi le fa teme la pirateria. 
Gli autori ed i produttori di pro- 
grammi affermano senza esitazione 
che essa esiste, ma pochi ritengono 
che possa riguardare un giro d’affa- 
ri considerevole. 

Tutto sommato i traffici che av- 
vengono tra gli hobbysti o a livello 
di amicizia non riguardano più di 
tanto i produttori di software. 

Quelli con cui ho parlato sono 
sinceramente propensi a rispettare 
il rapporto con gli aspiranti pro- 
grammatori, forse perché capisco- 
no i loro dubbi pensando a quelle 
difficoltà che erano le loro fino a 
poco tempo fa. Un consiglio che 
vale sempre è che il programmato- 
re dovrebbe rivolgersi solo alle ca- 
se di software che hanno una buo- 
na reputazione. Anche se i produt- 
tori in generale dicono che i pro- 
grammatori non hanno grossi moti- 
vi per preoccuparsi. Ii 


39 


Contraerea: le capacità 
grafiche dello ZX Spectrum 


di Marcello Spero 


na delle caratteristiche che 
I [rendono lo ZX Spectrum 

estremamente attraente fra 
le macchine della sua categoria è 
senz'altro la possibilità di una ge- 
stione del video fra le più comple- 
te. 

Quello che vedremo è un uso 
“poco serio”, ma non per questo 
meno interessante, di alcune di 
queste potenzialità. 

Il programma visualizza un ae- 
reo che vola al di sopra di una bat- 
teria contraerea, e può sganciare 
bombe per cercare di distruggerne 
i cannoni; le bombe vengono sgan- 
ciate premendo il tasto M. 

Il fuoco della contraerea si ridu- 
ce tanto più quanti più cannoni 
vengono distrutti, ma attenti: il tiro 
è molto accurato, e dovete quindi 
distruggere almeno un cannone 
molto rapidamente, se volete avere 
qualche possibilità di sopravviven- 
za; oltretutto non potete sganciare 
una nuova bomba finché la prece- 
dente non ha toccato terra. 

Il programma principale arriva 
fino alla linea 299, e le linee REM 
chiariscono la funzione delle su- 
broutine. 

La prima sezione, fino alla linea 
100, oltre che richiamare le istru- 
zioni e preparare lo schermo, prov- 
vede alla definizione dei caratteri 
grafici speciali. Questo avviene con 
la linea 5, che richiama l’apposita 
subroutine; i dati sono alle linee da 
1100 a 1120, in forma decimale. 
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Ricordo che i dati relativi alla gra- 
fica definibile sono otto numeri per 
ogni carattere, la cui forma binaria 
rappresenta con 1 i punti del colore 
INK, e con 0 quelli del colore PA- 
PER di ognuna delle otto righe che 
compongono il carattere; ad esem- 
pio, una riga tutta di colore PA- 
PER, cioè del colore dello sfondo, 
sarà rappresentata dal numero bi- 
nario 00000000 cioè zero, mentre 
una riga tutta di colore INK, cioè 
del colore dei caratteri, sarà rap- 
presentata dal numero binario 
11111111 cioè 256. 

Questi dati sono quindi letti da 
una istruzione READ, e immessi 
con una istruzione POKE nel ri- 
spettivo carattere. 

La sagoma dell’aereo è ottenuta 
con i caratteri grafici “A”, “B” e 
“C”; la bomba è il carattere “D”, 
mentre il cannone è la “E” grafica. 

Il programma, essendo stato li- 
stato dopo essere stato fatto girare, 
riporta al posto delle lettere grafi- 
che il carattere già definito, come 
apparirà anche a voi dopo la prima 
esecuzione, a patto che abbiate 
collocato le lettere giuste al posto 
giusto. 

Le linee 30 e 35 predispongono 
lo schermo al colore bianco per il 
cielo, verde per il terreno e nero 
per la cornice (BORDER); l’istru- 
zione CLS, dopo aver cambiato il 
colore dello sfondo, è, come pro- 
babilmente sapete, molto impor- 
tante: infatti, se lo schermo non 


4 REM _CONTRAEREN f1=3: PRINT AT h-1,P; INK 4; "BB" 
5 Go suB 1200 RUGNVRA IRETIh=S 
12 BORDER 1: PAPER Q: INK 7: © 2342 IF ATTR {h,p-1)=5S8 THEN GO 
LS ds TO 400 
45 PRINT AT_ 19,5; FLASH_ 1; Uier 352 GO TI 170 
mali\ registratore”: PAUSE 150: 4@2 REM punteggio e bang. 
Las 1 419 PRINT AT fi ,Pp-l; FLASH 1; IN 
229 PRIN AT 10,11; "CONTRRERER K 3; "DB 
;5AT 185,5; "vuoi le istruzoni? s/n +15 BEEP .2,-2@ 
Ù 450 LET centri=centri+1: LET ca 
PRBRUSE @ IF INKEY $="s" THEN nnoni=cannoni+1 
GO SUE 2800 458 GO TO 170 
32 BORDER Q: PAPER 7: CLS 509 REM fuoco cantraereo 
S5_ FOR_1=14 TO si: FOR =@ TI 5128 LET r=INT_ (RND+251 =; 
Ta PREDE cu U, ji INK 4; "BD: NEX AEaR PRINT AT a,f; INK A; FLRSH 
di page 
49 LET_ totale=@: LET cannoni=@ 5329 IF r=p THEN co TO EM 
LET_t=5£ 54@ PRINT AT S,r;t o" 
Se FOR s=2 TC 5 ,5529 FLASH a: GO TO 220 
S5_PRINT AT 15,7; PAPER 4; INK 599 REM abbattimento 
d;jUaerei rimasti ";t-9 519 FOR L1=3 TO 13 
69_DIM qiz): LE =5: LET rl=2 628 PRINT AT +t,P; FLASH 1; INK 
LET_centri=@ Dj" ted“ nt 
79 FOR l=1 TO a 5239 PRINT AT L_P;" 
8@_ LET w=INT (RND#14)+5: FOR n 549 BEEP .1, 1+6 
31,5%1È (n) THEN D TO 20 556 FEUSE ‘100 LET fi=@® 
i waqr in GO (=) S L= 
S7 NEXT n 889 FOR _L1=@2 TO 31: PRINT AT 13, 
929 LET qgiil=4 NEXT _L 2 ERO 
109 FOR L TO : PRINT AT 13,9 699 GO TO 250 
iL}; INK 2;'[": NEXT_L 999 STOP A SR 
110 FOR p=28 TO @ STEP _.-1 100409 REM caratteri grafici 
122 PRINT AT_23;p; INK 2; sad o“ 1@le FOR a=@ TO 2 ie 
1308 BEEP .205,-1@: BEEP .225,-4 1929 READ d PORKE USR a"+a,d: R 
1409 IF INKEY#*="m" THEN LET fl=1 d: POKE USR “b"+a,d , 
158 IF fl=@ THEN PAUSE 2 1A32 READ d: PORE USR cad: RR 
100 SE Pret GE Mersco FERIERORE USR "d"+a.d 
17 * -centrii>1.2 THEN al a 
SO TO 500 1250 FOR a=@ TO 7: REM d: POKRE 
159 RADSE 7=] FERREIRA, NEXT a 
2 centri=2 THEN LET totale 126 = 
=totale+1: GOT [4] 1129 DATA_d2,09,12,2,0,0,28,60,1,2 
209 NEXT 54,50,24,3,255,252,60 
212 PRINT AT_S,@;" si 1112 DATA _31,255,252,62,63,255,2 
2208 GO TO 110 52,24,31,254,2,2,2.,20,0,% sa 
248 FOR t=@ TO 21: PRINT AT_12,; 1120 DATA 1,2,4,3,16,40,32,255 
ee o Ae i NEXT L: PRINT 20028 REM istruzioni p 
AT_3,P;" 2219 CLS : PRINT AT 1,12; INK 2; 
245 IF centri=3 THEN GO TO S5 ISTRUZIONI" 8 5 
259 NEXT_9g 20209 PRINT AT_S,aA; "Scopo del gia 
269 PRINT AT 15,7; PAPER 4; "can co e’ distruggere quanti piu c 
nani distrutti ";Cannoni annoni contraerei possibile. Pe 
278 PRINT AT 17,2; PAPER #4; "bat r far questo hai a disposizione 
terie distrutte ";totale sei aerei, che pos-sono sganciar 
2824 PRINT AT_19,7; PAPER 4; "un e un numero illimi-tato di bombe 
altra partita? n° i non puo‘ pera” essere in ari 
233 IF INKEY#% THEN co TO 28 2a piu’di una bomba per volta. Pe 
224 IF_INKEY#$="s" THEN GO TO r sganciare le bom-be premi il 1 
229 STOP asto m.Se distruggiuna intera ba 
saa REM sgancia bamba tteria te ne viene data un’altra 
S410 PRINTUATIN=1P#17% RAME Bea È 
i INK Q@; sa" 29239 PRINT AT 20,2; "premi un Îa5 
1,329 IF Pi THEN FRINT AT h_p;”" to per _ iniziare” PAUSE 2 
33@ LET h=h+1: IF h=1S THEN LET SI 


viene cancellato, permane il vec- 
chio colore di sfondo, e il nuovo 
colore compare solo quando viene 
visualizzato qualcosa, creando stra- 
ni e colorati (quanto indesiderati) 
effetti. 

Le linee 40 e 60 inizializzano le 
variabili; le linee da 70 a 90 deter- 
minano le posizioni dei cannoni, 
mentre la linea 85 controlla che 
queste siano diverse l’una dall’al- 
tra; la linea 100, infine, visualizza i 
cannoni. In questa linea dovete so- 
stituire alla sagoma del cannone il 
carattere grafico “E”, per i motivi 


detti prima. 

Con il ciclo compreso fra le linee 
110 e 200 sono controllati il movi- 
mento dell’aereo e la sua visualiz- 
zazione; anche qui la sagoma va 
sostituita con i rispettivi caratteri 
grafici, che in questo caso sono 
“A”, “B” e “C”, seguiti da uno 
spazio che ha la funzione di cancel- 
lare l’ultimo carattere man mano 
che l’aereo avanza. In linea 140 av- 
viene il test per controllare se il ta- 
sto M è premuto; in questo caso il 
flag fl viene settato (cioè posto 
uguale ad uno); ciò fa sì che il pro- 


gramma salti alla routine “sgancio 
bomba”; se questo non avviene, 
viene introdotta una istruzione 
PAUSE per mantenere uguale la 
velocità di esecuzione. 

Il fuoco della contraerea è con- 
trollato dalla linea 170; i valori 
possono essere variati per rendere 
il gioco più facile o più difficile; 
quelli dati mi sembrano un buon 
compromesso; la pausa in linea 180 
ha la stessa funzione della prece- 
dente, cioè uniformare la velocità. 

La variabile “centri” in linea 190 
controlla se sono stati distrutti tutti 
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e tre i cannoni, in questo caso in- 
crementando il punteggio (variabi- 
le “totale”) e fornendo uno scher- 
mo pulito con una nuova batteria. 

L’ultima parte del programma 
principale visualizza il punteggio, 
dopo che tutti gli aerei disponibili 
sono stati abbattuti. 

La routine “sgancio bomba” vi- 
sualizza la caduta della bomba se 
fl è settato; se la bomba colpisce il 
terreno fl è riportato a zero e la 
routine è pronta per il prossimo 
sgancio. Il controllo per verificare 
se un cannone è stato colpito av- 
viene per mezzo della funzione 
ATTR di linea 340; questa funzio- 
ne di controllo video è veramente 
interessante, e merita una parente- 
si per ricapitolarne il funzionamen- 
to. 

Nella sistemazione che il display 
file (cioè l’area di memoria conte- 
nente le informazioni riguardanti il 
video) ha nello ZX Spectrum, i ca- 
ratteri sono conservati separata- 
mente dai loro attributi (cioè i loro 
colori, eventuale lampeggio e lumi- 
nosità); infatti, mentre i primi sono 
suddivisi in otto byte ciascuno (e 
posti in memoria in un ordine par- 
ticolare che, lungi dall’essere quel- 
lo logico in sequenza, rispecchia il 
movimento del “pennello” che 
compone l’immagine sullo schermo 
televisivo), gli attributi occupano 
un byte per carattere, in perfetta 
sequenza, e sono posti in coda al 
display file. Questo comporta che 
un controllo sugli attributi di un ca- 
rattere, piuttosto che sul carattere 
Stesso, può essere molto più rapi- 
do, a patto che sappiamo dove an- 
dare a cercare gli attributi di quel 
particolare carattere. La funzione 


ATTR ci viene incontro proprio 
nella soluzione di questo proble- 
ma; infatti essa si comporta come 
una funzione PEEK (riporta cioè il 
valore di una determinata locazio- 
ne di memoria), ma con una so- 
stanziale differenza: invece di do- 
ver fornire l’indirizzo di memoria, 
cosa complicata da calcolare, dia- 
mo alla funzione ATTR il valore 
della riga e della colonna del carat- 
tere di cui vogliamo conoscere gli 
attributi. A questo punto ci basta 
saper interpretare il significato del 
numero che ci viene riportato; nel- 
la sua forma binaria, questo contie- 
ne: nel byte 7 l’attributo FLASH 
(lampeggio), nel byte 6 l’attributo 
BRIGHT (luminosità), nei byte da 
5 a 3 il colore PAPER (dello sfon- 
do) e nei byte da 2 a 0 il colore 
INK (dei caratteri). 

Tutto questo tradotto in termini 
decimali significa che la cifra sarà 
così composta: 


128 per il lampeggio (1 se lampeg- 
giante, 0 se no) + 
64 per la luminosità (1 se più lu- 
minoso, 0 se no) + 
8 per il colore PAPER (da 0 a 7) 
+ 

1 per il colore INK (da 0 a 7). 


Nel nostro caso dobbiamo capire 
se l’attributo che ci viene riportato 
è quello di un pezzetto di cielo o 
quello di un cannone, dando la riga 
e la colonna della posizione in cui 
la bomba si trova. Il cannone non è 
lampeggiante ed è a luminosità 
normale, quindi i due primi casi ci 
danno zero: lo sfondo è bianco, 
cioè 7, che per 8 dà 56; il cannone 
stesso è rosso, cioè 2, che per 1 dà 


NI | n) pi 


2; totale 56+2=58. Infatti, se il 
programma riporta il valore 58 alla 
linea 340, viene eseguito un salto 
alla linea 400, la routine 
“punteggio e bang”, che produce il 
suono ed incrementa il punteggio. 

La routine “fuoco contraereo”, 
chiamata dalla linea 170, visualizza 
per un istante un carattere lampeg- 
giante, e controlla se la sua posi- 
zione coincide con quella del muso 
dell’aereo; in questo caso si salta 
alla routine “abbattimento” di li- 
nea 600. Qui avviene la caduta del- 
l’aereo, rappresentato lampeggian- 
te con una istruzione FLASH loca- 
le, inclusa cioè nella istruzione 
PRINT corrispondente, che quindi 
non condiziona tutto ciò che verrà 
visualizzato d’ora in poi, ma si 
esaurisce con la sua PRINT. 

A questo punto viene introdotta 
una pausa per creare un certo stac- 
co con l’azione successiva, e quindi 
si riparte con un nuovo aereo e una 
nuova batteria. Gli aerei a disposi- 
zione sono sei, mentre il numero di 
cannoni è illimitato. 

Volendo cambiare il colore del 
cielo o quello dei cannoni, ricorda- 
tevi di modificare di conseguenza 
la linea 340, quella che contiene la 
ATTR. È anche possibile variare il 
tasto che comanda lo sgancio della 
bomba, semplicemente cambiando 
nella linea 140 il carattere fra vir- 
golette; una variante interessante 
potrebbe essere quella di far sgan- 
ciare la bomba premendo un tasto 
qualsiasi: per ottenere questo basta 
porre in linea 140 IF INKEY$ <> 
“’ THEN LET fl=1. 

Con questo penso di aver detto 
tutto: aspetto i vostri consigli e mi- 
glioramenti. Buon divertimento! MI 
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Ettore M. Albani 


All’interno di qualsiasi computer vi è sempre un 
“orologio generatore” di impulsi elettrici a frequenza 
costante, detto in inglese clock generator. 

La sua funzione è simile a quella del pendolo o del 
bilanciere, che, oscillando, provoca l’avanzamento 
costante degli ingranaggi in un orologio: nel caso del 
computer, le oscillazioni elettriche sostituiscono quel- 
le meccaniche e le commutazioni di stato di una rete 
logica sostituiscono l’avanzamento degli ingranaggi. 


Il clock del CBM. 


Su un personal computer come il CBM, il “tic-tac” 
ha una frequenza relativamente bassa: appena 1 
MHz, ovvero un milione di oscillazioni al secondo! 
Ciò vuol dire che un ciclo del microprocessore del 
CBM (il 6502) ha la durata di un milionesimo di se- 
condo; se si pensa che la più complessa operazione 
gestibile con il 6502 abbisogna di 7 cicli macchina, ci 
si rende conto dell’enorme velocità di calcolo. 

Eppure questa velocità di funzionamento è tra le 
più basse e non è infrequente trovare nei personal 
clock di 4 MHz o addirittura di 10 MHz. 

Nel futuro la velocità sarà ancora maggiore: basti 
pensare che con le nuove giunzioni a superconduttori 
si sfiora la frequenza fantastica di 1 GHz (un miliar- 
do di cicli al secondo)! 

Ma ritorniamo al 6502 del CBM; fortunatamente la 
struttura interna di questo microprocessore del tipo a 
pipeline compensa in gran parte la bassa frequenza di 
clock. Volendo fare un paragone con lo Z80, que- 
st’ultimo, a parità di velocità di esecuzione, dovrebbe 
avere un clock di frequenza circa doppia. 

All’utente medio del CBM queste notizie possono 
sembrare pure dissertazioni accademiche; in realtà il 
tempo necessario ad eseguire un’istruzione è impor- 
tantissimo nel caso di attività ricorrenti: se qualcuno 
ha provato a far eseguire un sort di un elenco di nomi 
con l’interprete Basic del CBM, avrà notato che la 
velocità di esecuzione dipende essenzialmente dal ti- 
po di algoritmo scelto, dal tipo di istruzioni usate e 
dal numero di nomi da ordinare. 

Il clock del CBM in un secondo oscilla un milione 
di volte ed il 6502, pensando ad una media di 4 cicli 
per istruzione, ne può eseguire circa 250000 al secon- 
do. 


Occorre tuttavia ricordare che buona parte di que- 
ste istruzioni viene impiegata dal sistema operativo 
per il rinfresco della memoria RAM dinamica, per il 
rinfresco del video, per la scansione della tastiera e 
del bus IEEE-488 e per altre operazioni. 

Restano dunque “poche” istruzioni riservate all’u- 
tente ed eseguibili in un secondo. Se poi si impiega 
l’interprete Basic anziché il linguaggio macchina, il 
numero di istruzioni utili (al secondo) decresce ulte- 
riormente, poiché il Basic del CBM deve interpretare 
l’istruzione prima di eseguirla ed essa, normalmente, 
si compone di una somma ragguardevole di istruzioni 
macchina. 

A titolo di esempio, un ciclo FOR...NEXT effet- 
tua in un secondo circa 1000 iterazioni. 


Il programma 


Mediante un semplice programma è possibile misu- 
rare il tempo necessario ad eseguire qualsiasi istru- 
zione del Basic. Il programma 1 utilizza la variabile 
numerica riservata TI, che è un contatore interno del 
CBM; il suo contenuto, infatti, viene incrementato di 
una unità (jiffy) ogni sessantesimo di secondo. Si noti 
che le linee da 100 fino a 140 servono a calcolare il 
fattore correttivo K (tempo necessario ad effettuare 
1000 interazioni) da sottrarre al tempo totale di ese- 
cuzione calcolato dalla linea 210 fino alla 250. 


100 REM * CALCOLO FATTORE CORRETTIVO 
110 T=TI 

120 FOR I=1 TO 1900 

130 NEXT 

140 K=TI-T 

200 REM * CALCOLO TEMPO TOTALE 
210 T=TI 

220 FOR I=i TO 1000 

230 REM * INSERIRE QUI IL COMANDO 
240 NEXT 

250 T=TI-T 

200 REM * RISULTATO IN MSEC 

310 PRINT (T-K)/60 


Listato 1. 


Le prove sono state effettuate con un CBM 4032; 
alcuni dei risultati appaiono in fig. 1, altri li potrete 
ricavare inserendo l'istruzione nella linea 230. 

Naturalmente questi risultati, pur essendo validi da 
un punto di vista formale, possono essere considerati 
solo a livello qualitativo perché altri fattori possono 
influenzare il tempo medio impiegato ad eseguire l’i- 
struzione. 

Ad esempio, ogni volta che il Basic utilizza una 
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variabile, viene effettuata la scansione dei nomi di 
tutte le variabili già eventualmente create: questo 
tempo dipende, ovviamente, dal numero di confronti 
da effettuare ovvero dalla posizione che il nome della 
variabile assume nel “vocabolario” del CBM. 

Un altro esempio potrebbe essere quello della fa- 
migerata subroutine garbage collection, che alla lette- 
ra significa “raccolta dei rifiuti”. L'utente del CBM 
avrà notato, operando con ampi vettori di variabili, 
che ad un certo punto la macchina sembra bloccarsi 
per un tempo più o meno lungo: la causa è la suddet- 
ta subroutine, attivata dalla mancanza di spazio in 
memoria. 


Assegn. Comando msec 
PRINT 18.7 
PRINT 123.4 34.5 
X=123.4 PRINT X 27.8 
dI PRINT X; 11.2 
PRINT "123.4" 20.6 
X$="123,4" PRINT X$ 20.1 
s PRINT X$; 2.6 
Si PRINT X$+X$ 22.1 
PRINT TABCI) 2.0 
PRINT SPCC1) 2.2 
PRINT PEEKC100) 23.6 
POKE 2000,31 272.0 
READ 6.2 
X=100 3.8 
Xx=100 3.5 
X$="100" 1.4 
XX$=" 100" 1.5 
Figura 1. 


Nel periodo di tempo durante il quale il computer 
sembra essere inattivo, viene effettuata una “raccolta 
dei rifiuti” rappresentati dalle vecchie stringhe alfa- 
numeriche associate in precedenza ad una variabile. 

Infatti, il nuovo contenuto di una variabile stringa 
non è memorizzato nelle stesse locazioni del prece- 
dente, ma in altre locazioni libere. La subroutine di 
garbage collection individua nella RAM tutti i vecchi 
contenuti delle variabili in memoria, li cancella e 
compatta i nuovi contenuti, aggiornando i puntatori 
delle variabili. Il sistema operativo esegue questa su- 
broutine non solo, come si accennava, quando manca 
spazio in memoria, ma anche quando interpreta il co- 
mando FRE(). Nel Basic 4.0 del CBM 4032/8032, 
questo problema è stato parzialmente risolto con 
l’aggiunta di particolari subroutine che velocizzano 
questa operazione. 
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Consigli pratici 


Ogniqualvolta avrete problemi di velocità di esecu- 
zione, tenete presente questa serie di consigli. 

1. Inizializzate tutte le variabili usate dal program- 
ma all’inizio dello stesso; cioè, ponete a zero (o ad 
altro numero) tutte le variabili numeriche, ed a strin- 
ga nulla tutte le variabili alfanumeriche. Questa ope- 
razione serve a creare il “vocabolario” delle variabili: 
perciò inizializzate prima le variabili più frequente- 
mente adoperate. Ricordate di dimensionare i vettori 
sempre dopo l’inizializzazione delle variabili sempli- 
ci, poiché la creazione di anche una sola variabile 
semplice dopo aver dimensionato un vettore provoca 
uno spostamento nell’ambito del “vocabolario” del- 
l’intero vettore verso la parte alta della memoria. 

2. Utilizzate il più possibile delle variabili al posto 
di costanti: se per esempio vi capita di dover stampa- 
re sul device 5, inizializzate due variabili (P e D) in- 
dicanti rispettivamente il file logico ed il device fisico 
(P=128, D=5). Un ciclo FOR...NEXT sarà più velo- 
ce se vengono utilizzate delle variabili al posto di co- 
stanti. 

3. A proposito del ciclo FOR...NEXT, cercate di 
terminare in ogni caso il ciclo, per evitare problemi 
di riempimento dello stack (catasta operativa); ciò 
vuol dire che, in caso di chiusura anticipata del ciclo, 
sarà utile porre la variabile di ciclo uguale all’estremo 
superiore dell’intervallo: 


100 REM * CICLO 

110 FOR I=1 TO 20 

120 X=I*(1+2) 

130 IF X>100 THEN I=20: GOTO 150 
140 PRINT X 

150 NEXT 


Sempre a proposito del ciclo FOR...NEXT, ricor- 
date di usare il meno possibile il nome delle variabili 
dopo il NEXT: ciò velocizzerà il ciclo. 

4. Le variabili numeriche semplici si dividono in 
intere ed a virgola mobile. La loro occupazione di 
memoria è la medesima, ma la velocità di esecuzione 
di comandi che utilizzano le prime è superiore. Un 
forte risparmio di memoria ed un aumento di velocità 
si ha, invece, nel caso di vettori numerici. Infatti, un 
vettore numerico intero occupa 2 byte per elemento, 
mentre quello a virgola mobile ne occupa 5. 

5. Nel caso di stringhe, ricordate che la variabile 
semplice occupa 7 byte più la lunghezza del suo con- 
tenuto, mentre il vettore stringa occupa per ogni ele- 
mento 3 byte più la lunghezza del relativo contenuto. 
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READ, DATA e 
RESTORE 
e l’uso del registratore 


Enrico Ferreguti 


Il più delle volte durante la conversione nel Basic del 
Sinclair di programmi di altri calcolatori ci si inchioda 
in istruzioni sconosciute, o perlomeno che non si ha 
l’idea di come tradurre. 

Nel 90% dei casi l’inghippo è costituito dalle istru- 
zioni READ, DATA e RESTORE, che non hanno 
corrispondenti nel linguaggio dello ZX. 

La funzione di queste istruzioni è la registrazione di 
blocchi di dati nel programma con accesso sequenziale. 

DATA segnala che dopo questa istruzione si trova- 
no i dati separati dalla virgola. 

READ invece legge sequenzialmente i dati all’inter- 
no delle DATA (numerici o alfanumerici), cioè ad ogni 
lettura il puntatore si sposta sul prossimo dato sulla 
riga, 0, se il dato era l’ultimo, sulla prossima che ne 
contiene. 

RESTORE infine riposiziona il puntatore dei dati 
sulla prima DATA del programma. In effetti in alcuni 
Basic si può posizionare il puntatore su una riga qual- 
siasi a discrezione del programmatore; purtroppo que- 
sta possibilità non viene inclusa nella nostra simulazio- 
ne. 

Con lo ZX queste istruzioni sono simulate nella se- 
guente maniera (si veda il listato). 


DATA: i dati sono contenuti in REM all’inizio del 
programma e non disseminati per tutto il listato. 

READ: per chiamare questa routine bisogna usare 
l’istruzione GOSUB READ o GOSUB 9900; al ritor- 
no dalla chiamata il dato letto sarà contenuto nella 
stringa R$. 


Quindi se troviamo READ C$ con lo ZX dovremo 
scrivere: 


GOSUB READ 
LET C$=R$ 


Se troviamo invece READ C$,B$ allora scriveremo: 


GOSUB READ 
LET C$=R$ 
GOSUB READ 
LET B$=R$ 


RESTORE: si batte semplicemene GOSUB RESTO- 
RE o GOSUB 9950 e il puntatore si riposizionerà sulla 
prima REM. 


Importante 

e Le REM vanno sistemate tutte all’inizio e, come si 
vede dal listato, i dati possono trovarsi su varie REM 
di lunghezza variabile. 

e Per usare queste routine bisogna prima inizializzarle 
all’uso. Per fare ciò si sistemi un GOSUB 9950 all’i- 
nizio del programma (dopo le REM), che nel nostro 
caso si trova in riga 100. 

e Bisogna sempre far seguire un punto ai dati, anche 
quando ci si trova a fine riga. 5 
Dopo aver ben esaminato il listato di esempio non 

dovrebbe risultare difficile tradurre un programma con 

le DATA e inserire molti dati ed informazioni nei 
nostri programmi senza bisogno di fare i salti mortali 
per caricarli. 

Ricordiamo che ciò che ci permette di utilizzare 
questo metodo è proprio l’originalità del sistema 
ZX81, in quanto l’inizio della zona utente, in quasi tutti 
i calcolatori, se ne va in giro per la memoria. Nel nostro 
caso, invece, resta ben fissa a partire dalla locazione 
16509 e risulta quindi facile esplorarla e pokarci dentro 
quello che vogliamo. 
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Consigli sull’uso del registratore 


1. Usare solo nastri di buona qualità. 

2. Non serve acquistare nastri da 60, 90 o 120 mi- 
nuti, non li riempireste mai, usate nastri da 46 minuti 
o meno. 

3. Cercate di mantenere il massimo ordine, catalo- 
gando accuratamente tutti i programmi contenuti nel- 
la cassetta. Non sarebbe una cattiva abitudine far ini- 
ziare il nastro con un piccolo archivio in cui registrare 
il nome dei programmi, l’occupazione di memoria e 
altri dati che li riguardano. 

4. Il tono dovrà sempre essere al minimo nei regi- 
stratori predisposti per la sua regolazione. 

5. Non alimentare i registratori con pile ma possi- 
bilmente con la corrente di rete. Man mano che le 
pile si scaricano, diventano possibili sbalzi di velocità 
ai motori di trazione della cassetta. 

6. Per il trasferimento di dati tra registratore e 
computer usare solo gli speciali cavi in dotazione, o i 
cavi schermati a bassa impedenza usati per il collega- 
mento di apparecchi HiFi. 

7. Non è sempre bene utilizzare piastre stereo. È 
preferibile usare piccoli registratori, che tra l’altro 
migliorano la portabilità del sistema e ne riducono 
l'ingombro. 

8. Se è possibile, usare sistemi di soppressione del 
fruscio (Dolby, HighCom, ecc.), che tendono ad 
esaltare le alte frequenze, e cioè proprio quelle desti- 
nate al flusso di impulsi costituenti il programma. 

9. In registrazione, il volume deve essere sempre 
tenuto basso, mentre durante il caricamento dovrà 
essere al massimo. Certe volte capita di non poter 
caricare un programma fin dall’inizio; ciò è confer- 
mato da strane inchiodature e NEW involontari del 
sistema. Talvolta è sufficiente solo abbassare il volu- 
me quel tanto che basta al computer per ricevere lo 
start e capire il nome del programma. Quando invece 
il programma caricato è zeppo di imprecisioni e con 
caratteri senza senso sparsi per tutto il listato, allora 
la causa è da imputare ad una cattiva registrazione. 

10. Se in un programma non è importante il salva- 
taggio dei dati in esso contenuti (p.es. è un gioco o 
contiene formule) conviene cancellarli con un 
CLEAR. In questo modo si riduce il tempo di salva- 
taggio e caricamento su cassetta. Tutte queste piccole 
precauzioni non solo possono eliminare fastidiosi in- 
convenienti con il registratore, ma permettono anche 
un facile trasporto di programmi da computer a com- 
puter. 


46 


Le più interessanti caratteristiche 
di gestione del video 


Marcello Spero 


Iniziamo con questo numero a parlare dello ZX 
Spectrum. Come tutti sapranno senz’altro la nuova 
macchina della Sinclair, pur ricalcando sostanzial- 
mente lo schema dello ZX81, a tutto beneficio di 
quanti su questo hanno imparato, presenta molte so- 
stanziali, e in un certo senso sensazionali, novità. 

Da questo mese inizieremo ad esaminare tutte 
quelle caratteristiche che, pur se accennate nel ma- 
nuale, non sono sufficientemente sviluppate e spiega- 
te, secondo un criterio abituale della Sinclair, che 
preferisce lasciare le cose per così dire “a metà” per 
dare ampio spazio all’inventiva e allo studio. Frutto 
di questa politica è l'enorme sviluppo di software e 
hardware aggiuntivo che, soprattutto in Gran Breta- 
gna, segue l’immissione sul mercato di ogni nuova 
macchina Sinclair. 

In questo numero approfondiremo in particolare 
alcune delle nuove potenzialità di gestione del video, 
che rappresentano la novità più attraente. 


Provate il programma UNO: circa due volte al se- 
condo viene visualizzato un carattere; quindi l’intero 
schermo viene invertito. Come certamente sapranno 
quelli che conoscono lo ZX81, su questa macchina 
per ottenere un effetto analogo era indispensabile ri- 
correre ad una routine in linguaggio macchina; qui, 
invece, si è ricorso ad una stringa di 704 spazi, visua- 
lizzati in INVERSE e OVER. L’attributo OVER 
opera un or esclusivo fra il carattere presente in una 
data posizione del video e il carattere che gli viene 
sovrapposto; in questo caso, però, non c’è niente con 
cui fare or-ex, trattandosi di una stringa di spazi, e 
l’effetto si limita ad una inversione dello schermo in 
un tempo molto breve. Come si può notare dalla li- 
nea 10 non è necessario caricare 704 spazi nella strin- 
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ga: infatti l’istruzione DIM carica il vettore corri- 
spondente con zeri se questo è numerico, con spazi 
se è di caratteri. Per chi non avesse capito, 704 è il 
numero di caratteri contenuti in uno schermo (22 ri- 
ghe x 32 colonne). 

C’è un altro metodo per lo stesso procedimento: 
un ciclo che stampi per 704 volte il carattere “spazio 
inverso”; questo ha il vantaggio di non occupare me- 
moria per la stringa, ma risulta nettamente più lento. 

Il programma UNO si riferisce al bianco e nero, 
ma la sua applicazione ad un programma che utilizza 
i colori è semplice: basta aggiungere alla linea 30 


1 REM programma UNO 
10 DIM i$ (704) 
290 _PRINT_AT RND+*+20,RND*31 CHR$ 
(RND+*225+32) 
359 PRINT AT 9,09; QUER 1: INUER 


1 REM nuova linea SQ 
-_39 PRINT_AT 9,9; QUER 1; INVER 
SE_1; PAPER 8; INK 6; FLASH Ss; 8 
RIGHT 8;i$ 


1 REM programma DUE 

10 DIM i$(704) 

15 FOR i=1 TO 50 

29 PRINT_AT RND*#20,.,RND*S1; INK 
RND #7; PAPER _RND*7; BRIGHT RND; 


PER 
FLASH _RND;CHR$ (RND*225+52) 


38 _ PRINT AT_Q.0; QUER 1; PAPER 
8; INK ©; BRIGHT S; FLASH Si;ii$ 


i REM programma TRE 
10 DIM i$(704) 
15 FOR i=1 TO 50 
29 PRINT_ AT RND*20,RND*51; INK 


RND +7; PAPER _RNDè*7?7; BRIGHT RND; 
FLASH BND. CHRE (RND*223+532) 


se PRINT AT_Q9.0:; QUER 1; PAPER 
6; INK &; BRIGHT 8; FLASH 8;i%$ 


1 REM programma QUATTRO 
19.DIM ig (704) 

15 FOR i=1 TO 50 dg 4 
50 PRINT AT RND*20,RND#S1; INK 


ST ND è 
RND +7; PAPER _RND*7; BRIGHT RND:; 
FESSHE END: CHR$ ta n6 + 253952) 

i 
39 _ PRINT AT_9,9; QUER 1; PAPER 
5; INK Ss; BRIGHT 8: FLASH 9;i$ 


1 REM programma CINQUE 
5 INK 6 PAPER 6 CLS 
10 DIM i$(704) 
15 FOR i=10 TO 70 STEP 209 
29 CIRCLE 120,909,i 
25 NEXT_i pi 
Ri PRINT AT 9,9; QUER 1; INK 3 
2. 


42 PAPER ?: INK © 


(quella che opera l’inversione) tutti gli attributi (PA- 
PER, INK, FLASH, BRIGHT) con parametro 8; in 
questo modo ogni carattere rimarrà lampeggiante o 
più luminoso se già lo era, ma il colore dello sfondo 
sarà scambiato con quello del carattere. 

La stessa idea si può applicare per dare a tutto il 
testo e la grafica presente sullo schermo un particola- 
re colore, omettendo INVERSE 1 (o specificando 
INVERSE 0) e specificando un colore di INK invece 
di lasciarlo 8. 

Il programma DUE visualizza caratteri con PA- 
PER e INK casuale, e quindi li converte in nero, ri- 
spettando gli altri attributi. Se, per effetto della scel- 
ta casuale, alcuni caratteri risultassero illeggibili per- 
ché dello stesso colore dello sfondo, basta sostituire 
nella linea 20 INK 9 a INK RND*7. 

Lo stesso tipo di sostituzione, fatto nella linea 30, 
fa sì che i caratteri vengano convertiti in modo da 
essere sempre leggibili. 

Il programma TRE illustra lo stesso procedimento 
applicato al colore di sfondo. 

Il programma QUATTRO permette invece di ren- 
dere fissi caratteri lampeggianti: può essere utile se si 
fanno apparire messaggi lampeggianti, che vanno resi 
fissi dopo che si è agito di conseguenza. 

Notate come in tutti questi esempi la routine di 
modifica dello schermo è contenuta in una riga; il 
trucco stato tutto nella stringa di spazi. 

Questa tecnica può essere utilizzata per uno scopo 
completamente diverso: le figure grafiche impiegano 
un certo tempo ad essere disegnate; volendo dare l’il- 
lusione di un plottaggio istantaneo, si può disegnare 
la figura con sfondo e caratteri dello stesso colore, e 
quindi cambiando il colore dei caratteri. 

Il programma CINQUE fa questo, disegnando 
quattro cerchi in giallo su sfondo giallo, e quindi fa- 
cendoli apparire in magenta. 

Questi sono solo alcuni esempi: le applicazioni di 
questa tecnica possono essere moltissime. 

Passiamo ad un altro argomento: normalmente, al 
di fuori delle istruzioni INPUT gli attributi della par- 
te inferiore dello schermo non possono essere con- 
trollati, eccetto lo sfondo, che segue il colore del 
“border”. 

Come potremmo, ad esempio, avere il cursore e i 
messaggi del sistema scritti in verde? Anche se di 
dubbia utilità, questo è possibile modificando la va- 
riabile di sistema 23624, che contiene appunto gli at- 
tributi per la parte bassa dello schermo e il colore del 
border. Per inciso le variabili di sistema, che sono 
quelle memorizzate in RAM dalla locazione 23552 al- 


47 


I SEGRETI DEI PERSONAL 


SINCLAIR ZX SPECTRUM 


la locazione 23733 e il cui elenco è al capitolo 25 del 
manuale, sono la chiave per moltissimi trucchi di pro- 
grammazione, che analizzeremo poco per volta in fu- 
turo. La variabile 23624, dicevamo, è così suddivisa 


g 


effetto 


lampeggio parte bassa schermo 

luminosità parte bassa schermo 

colore border e parte bassa schermo 
colore border e parte bassa schermo 
colore border e parte bassa schermo 
colore caratteri parte bassa schermo 
colore caratteri parte bassa schermo 
colore caratteri parte bassa schermo 


7 
6 
DI 
4 
3 
pi 
1 
o) 


Tavola 1. Significato dei bit della locazione 23624 


Introducendo vari valori in questa variabile, per 


mezzo di istruzioni POKE, possiamo ottenere per 
esempio il lampeggio della parte bassa dello scher- 
mo, o una sua luminosità più accentuata. Notate che 
tutto questo non è ottenibile core istruzioni INPUT, 
in quanto gli attributi introdotti variano solo i mes- 
saggi, non i dati immessi da noi. Un’istruzione BOR- 
DER cancella le modifiche apportate a questa varia- 
bile, riportandola al valore normale. Provate questi 


due esempi: 
POKE 23624, BIN 10111000 (184) 
POKE 23624, BIN 01111000 (120) 


Per concludere un paio di piccoli trucchetti sempre 


utili: 
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Dovete cancellare una stringa o un numero molto 
lunghi in cui avete commesso un errore, in un IN- 
PUT? Non serve premere il tasto DELETE per un 
milione di volte: basta premere EDIT (shift 1) per 
far scomparire tutto quello che avete scritto in un 
input. 

Il vero equivalente dell’istruzione UNPLOT dello 
ZX81 non è PLOT OVER 1 ma PLOT INVERSE 
1; infatti se usate PLOT OVER per un pixel (pun- 
tino) non precedentemente plottato, l’effetto, in- 
vece di essere nullo, sarà equivalente a quello di 
un normale PLOT. Se invece usate PLOT INVER- 
SE, i pixel non plottati rimarranno tali, mentre 
quelli plottati verranno cancellati. Questo permet- 
te per esempio di cancellare i pixel plottati di una 
stessa riga con un’istruzione DRAW INVERSE, 
invece di andare a cancellarli uno per uno con tanti 
PLOT OVER. ® 


Ed in linguaggio macchina... 


Per coloro che avessero l’esigenza di un effetto assolu- 
tamente “istantaneo”, ecco una breve routine in linguag- 
gio macchina che può servire a creare gli effetti visti fi- 
nora, con velocità ovviamente maggiore (senza il fascino 
di ottenere simili effetti con il Basic, però!). 

Si tratta di nove passi di programma che caricano nei 
byte degli attributi (rimando chi non avesse le idee chia- 
re a proposito al capitolo 24 del manuale) il valore desi- 
derato. Qui di seguito è trascritto l’assembler, mentre . 
nel programmino di caricamento trovate il codice mac- 
china. 


ld hl, 22528 

Id bc, 768 

ld (hl), 7 

dec bc 

ld a,b 

or c 

ret z 

inc hl 

jr, -8 

Per tutti coloro che volessero utilizzarlo, segnalo che 

nell’ottavo byte del codice (quello che nel programma e 
nel codice tradotto è uguale a 7) sono contenuti gli attri- 
buti che vengono trasferiti allo schermo; così com'è, cioè 
uguale a 7, indica: FLASH 0, BRIGHT 0, PAPER 0, 
INK 7 cioè scrittura bianca su fondo nero. Potete ovvia- 
mente sostituirlo con il valore di cui avete bisogno; anzi, 
è facilmente possibile la sostituzione nel corso di un pro- 
gramma in cui la routine viene utilizzata, semplicemente 
con una POKE n+7, “nuovo valore” dove per n si inten- 
de l’indirizzo di inizio della routine (quello che compare 
dopo la funzione USR), che utilizzando il programmino 
di caricamento risulta essere uno più dell’indirizzo della 
nuova ramtop. Alternando per esempio i valori 7 e 56 
(scrittura nera su fondo bianco) in successive chiamate 
della routine, si possono avere inversioni successive; 
consiglio in questo caso di intervallare le inversioni con 
qualche PAUSE, essendo altrimenti troppo veloce la 
successione delle inversioni (la routine impiega 51444 
periodi di clock per essere eseguita, che alla frequenza di 
clock dello Spectrum, 3,5 MHz, equivale a circa 1,5 cen- 
tesimi di secondo). 


REM codice mac 
90 DATA 33.,0,65.1 
120,177,200,35,24,2 


hi 
®, 
37 


c 
4 
4 
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Disabilitazione del tasto 
RUN/STOP 


Alessandro Guida di Firenze ci svela un piccolo 
“segreto” del VIC. Lo ringraziamo a nome di 
tutti i lettori. 


La routine che vedremo permette di disabilitare il 
tasto RUN/STOP anche se il VIC non ha alcuna 
istruzione diretta che ci dia questo risultato. 

Nel computer viene attivata 60 volte al secondo la 
linea di interrupt. Questo fatto costringe il VIC a in- 
terrompere ciò di cui si stava occupando e passare 
all'esecuzione di una routine, detta appunto routine 
di interrupt. Questa si occupa di varie cose, come la 
gestione dell’orologio, il controllo del motore del re- 
gistratore, la scansione della tastiera, ecc. All’interno 
di questa routine ne viene chiamata un’altra che ana- 
lizza il tasto di STOP, e il cui indirizzo di partenza è 
conservato nelle locazioni $0328-$0329 (test-STOP 
Vector). Il programma presentato cambia il contenu- 
to di questo vettore sostituendo la routine di test ori- 


G1AGO REM ERRORE 
G1616 REM # DISABILITAZIONE R#S # 
GIOZA REM # * 
61630 REM * RS=0 DISABILITA * 
1640 REM # ES=1 RIABILITA Li 
GIOSO REM FERRERO AE 
61969 RESTORE 

GlO7a READ «K$ 

6lor5 IF KAs<c>"sk#" TEHN 61070 
GIAS9 FOR I=0 TO 2: READ KK£ 
61435 POKE 251+1,VALCKK#3: MEKT 
lose FOR I=6 TO 25: READ KKÉ 
61095 POKE S25+1. VAL 8): HEXT 
61100 IF RS=0 THEN SHS S58: RETURH 
GliiO IF Rs=1 THEN SS S41: RETURN 
61120 RETURK 

61138 DATA ##,165,145,96 

61140 DATA 120, 169,251,141,49,3 
61145 DATA 169,0,141:41,3, 98,96 
61159 DATA 120,169,112,141,40,3 
Gl1iSS DATA 169,247,141,41,3,88,96 


Listato 1. Subroutine Basic di disabilitazione. 


ginale con una fittizia che non esegue alcun test. Per 
riabilitare il testo è necessario ristabilire l’indirizzo 
originale ($F770). La routine va chiamata con RS=0 
per disabilitare lo STOP e con RS=1 per riabilitarlo. 


F?70 LIA $91 
fra CMP #$FE 
Fr4 BENE $F77D 

Free PHP 

Fr JSR $FFCC 
FFFA STA £C6 
Rage ELE 

Fr7eD RTS 


Listato 2. Routine di test-STOP originale. 


GGFB LDA #51 
GOFD RTS 


Listato 3. Nuova routine. 


0330 SEI 

69330 LIA #$FB 
G33F STA #0328 
0342 LDA #00 
9344 STA #£0329 
9347 CLI 

9348 RTS 

9349 SEI 

9345 LIA #870 
9540 STA #0328 
034F LDA #8F7 
assi STA $0929 
69354 CLI 

BSsss RTS 


Listato 4. Programma necessario per modificare il 
test-STOP Vector. 
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Minicalc per lo ZX81 


Un tabellone 


elettronico anche per 
lo ZX81 


di Enrico Ferreguti 
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bbene sì: la mania dei tabel- 
E: elettronici ha colpito an- 

che lo ZX. Con questo pro- 
gramma potrete provare l’ebbrezza 
delle tabelle di dati più complicate 
che vi vengono in mente, lo potre- 
te usare per calcoli lunghi e ripeti- 
tivi e potrete sbizzarrirvi con le 
proiezioni, pensando, tra l’altro, 
che state usando un programma 
che ricalca i famosissimi Visicalc, 
Ozz, ecc. e che non vi è costato 
niente. 

Per coloro che non hanno idea di 
cosa sia un tabellone elettronico 
cerchiamo di chiarire la situazione. 

Quante volte vi siete trovati da- 
vanti a delle tabelle e quante volte 
avete constatato l’inadeguatezza di 
penna e calcolatrice? Con il pro- 
gramma Minicalc potremo usare il 
nostro ZX per eseguire queste to- 
talizzazioni. 

Facciamo un esempio: dobbiamo 


calcolare il bilancio familiare per 
un arco di 5 mesi. Includiamo le 
principali voci: luce, gas, telefono, 
vitto e varie; le organizziamo in 
una tabella includendo delle altre 
voci: entrate, uscite, riporto, e tot. 
entrate (entrate + riporto) (vedi 
fig. 1). 

Adesso è solo necessario riempi- 
re le caselle e legarle logicamente 
fra loro. Se però una volta compi- 
lata la tabella volessimo modificare 
una voce, con carta e penna si sa- 
rebbe costretti a ricominciare tutto 
da capo. Con ZX e Minicalc baste- 
ranno pochi secondi per vedere la 
situazione aggiornata. 


Uso del programma 
Dopo aver caricato il program- 


ma lo si lancia con RUN, dopodi- 
ché si incontra la fase di carica- 


Figura 1. 


mento dati. Il programma comincia 
a mostrarvi sul video la tabella 
vuota e in fondo la frase 


tesa di input. 


1a DI; WS (3,29, 9} 

20 LET X=1 

32 GOSUB Ina 

49 PRINT ST 28,43; CRRICAMENTO 


188 soTo 32 

149 DIM Lix2,93 

159 FCR F=31 TO 29 

155 FOR Z=1 TO 3 

169 _IF CODE US$ iF, TEOR? 
WU$ (F,Z) 38 THEN LET Ul 
HE CE.Z) 

170 NEXT Z 

150 NEXT F 

200 CLS 

212 PRINT “ADESSO FERMERO"" IL 
PROGRAMMA 

222 PRINT “PER PERMETTERTI DI M 


239 PRINT “LE RELAZIONI ALLA RI 
SA sana” 
242 PRINT 
259 PRINT “POI PER RICOMISCINRE 
CARI Goro 2ea"” 
59 STOP 
559 BOSUB IBMaaR 
34 REM ROUTINE CR 
3925 GOsun ae 


AND CODE 
723 "URL 


p 3F, THEN Goro 234% 
339 _ IF CODE * {F,Z3}>27 AND CODE 
YU${F,Z) <38 THEN LET L!$ F.,Z\=A3TR 
» asa +Z 


329 GOSlIs ian 
382 PRINT AT 28,8; “COMANDI > ‘0 
XxS5X.CA,CH,5E,5F, SA» 
% 


soTro 2208 
soro anna 
coro siea 
Goro seme 
GoTO 225 

coro 2522 
coro 3ae2a 


x THEN _ PRINT 
AT 28,0; "FUORI Schekmo RIPETI 


SE IF F>X+2 DR F(X THEN GOTO 4 
d 


482 INPUT WS IF,ZI 
492 Goro = 

59 INPUT ate, 
51Q@ LET U$iF, 
529 GoTOo 372 
1000 LET MEL] 


1918 LET R$ HR$ TX+1561 
10209 LET N$(171=CHR$ iXxX+1571 


sf isres LITF,Z3 


CARICAMENTO DATI con l’at- 


Il programma sta aspettando le 


coordinate della casella da riempi- 
re (prima la colonna e poi la riga). 
L’input della casella può essere nu- 


=CHR$ 


1039 LET AST{27?} Tr+15231ì 
CLS 


1255 PRINT A% 
1862 FOR Z=i TO S 
10709 PRINT 


bw 


@ NEXT _F 
@ RETURN d 
REM ROUTINE DX 
LET X=X+1 
IF_x+239 THEN LET 
soTOo 372 

REM ROUTINE SX 


ppi 


REM ROUFINE cH Fnita 
E PRINT AT 28,8, “QUALE CASELL 
A_CAMBI ? ni 

2512 INPUT F 

35559 INPUT Z 

2539 PRINT 


ZL R 


AUUIRLO DON 


RETURN 


Listato 1. // programma Minicalc. 


SI 


merico o alfanumerico; nel primo 
caso la casella sarà operativa, cioè 
sarà significativa ai fini del calcolo 
stesso, mentre nel secondo caso sa- 
rà dedicata solo al commento. Co- 
me in una qualsiasi tabella può es- 
sere omessa, a scapito però della 
chiarezza. Per uscire da questa fase 
bisognerà fornire un numero mag- 
giore di 9. 

Quando il calcolatore chiede le 
coordinate della casella, il pro- 
gramma si ferma per dare la possi- 
bilità di cambiare o riscrivere le re- 
lazioni in riga 8000. Vediamo subi- 
to di cosa si tratta: quando faccia- 
mo una tabella del tipo descritto 
prima i legami esistenti tra una ca- 
sella e l’altra sono logici ed eviden- 
ti per noi ma non al calcolatore: 
dobbiamo quindi insegnarglieli. 
Per esempio della tabella di prima 
sappiamo che alla voce USCITE 
dovremo scrivere la somma di LU- 
CE, GAS, TEL, VITTO e VARIE 
e questo è ciò che vogliamo 
“insegnare” al computer. Il tabel- 
lone, nel calcolatore, è memorizza- 
to come una matrice bidimensiona- 
le di 9x9 elementi, quindi, imma- 
ginando che marzo sia il mese, bat- 
teremo nella riga 8000: 


LET W(2,8)=W(2,4)+W(2,5)+ 
+W(2,6)+W(2,7) 


che per il computer significa che la 
casella 2,8 (ricordiamoci che la pri- 
ma colonna è occupata dal com- 
mento) è uguale alla somma delle 
caselle 2,4, 2,5, 2,6 e 2,7. 

Con questo abbiamo già fatto 
un’importante osservazione: le ca- 
selle TOT. ENTRATE, USCITE e 
RIPORTO sono caselle dipenden- 
ti, quindi non si possono modifica- 
re (dato che, ogni volta che ese- 
guiamo l’aggiornamento, il valore 
della nostra modifica viene sostitui- 
to dal valore dell’attribuzione in ri- 
ga 8000) e devono apparire in riga 
8000 o seguenti. 

Tutte le altre caselle sono indi- 
pendenti e si possono modificare 
(anzi si devono affinché il pro- 
gramma abbia senso) e da loro di- 
pendono le caselle le cui attribuzio- 
ni compaiono in riga 8000 (caselle 
dipendenti). 
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Fatto questo si riparte con GO- 
TO 300. 

Apparirà sullo schermo la griglia 
del tabellone, il contenuto delle ca- 
selle e in fondo il messaggio CO- 
MANDI? (DX,SX,CA,CH,SE,ST, 
SA) il cui significato verrà discusso 
in seguito. 

Per poter modificare le caselle 
dovremo battere NEW/LINE. Ap- 
pariranno due richieste di input 
con cui inseriremo le coordinate 
della casella da cambiare (prima la 
riga poi la colonna). 

La casella che vogliamo trasfor- 
mare sarà visualizzata in inverso e 
si potrà passare alla modifica. 

Dopo aver battuto NEW/LINE 
per far accettare il cambiamento, il 
video verrà aggiornato; se si desi- 
derano altri cambiamenti si dovrà 
ripetere la procedura di prima op- 
pure si potrà usare uno dei seguen- 
ti comandi: 


CA (calcola) 

Finora abbiamo solo modificato 
le caselle; per far adeguare le ca- 
selle dipendenti alla modifica, cioè 
per vedere il cambiamento che ne 
è seguito, sarà necessario usare 
questo comando che aggiornerà i 
dati per poi ritornare alla sezione 
di input. 


SE (settore) 

Il tabellone è formato da 9x9 
caselle, però è diviso in tre settori 
da 3x9 caselle (schermate), cioè il 
settore da 1a 3, da 4a6eda7a9. 
Questo comando è importante per- 
ché quando si ha bisogno di modi- 
ficare la casella in un settore diver- 
so da quello in cui stiamo lavoran- 
do si dovrà darlo in input. 


DX (destra) e SX (sinistra) 

Hanno più o meno la stessa fun- 
zione di SE però in seguito ad uno 
di questi non si potrà più fare un 
input corretto, a meno che non lo 
si faccia seguire a un comando SE. 
Servono soprattutto per fare una 
ricognizione del tabellone di una 
riga a destra (DX) o a sinistra 
(SX). 


ST (stampa) 
Verrà richiesto il nome del lavo- 
ro che stiamo eseguendo e il setto- 


re da stampare e il suo contenuto 
sarà trasferito su carta. 


SA (salva) 

Serve a salvare su cassetta il la- 
voro finora eseguito: viene richie- 
sto il nome del lavoro e dopo i 
messaggi per la registrazione verrà 
eseguito il salvataggio. 


CH (change, cambia) 

Se si vuole cambiare una casella 
da commento ad operativa o vice- 
versa si dovrà usare questo coman- 
do (attenti a non convertire una ca- 
sella dipendente). 


Ora potete far girare il program- 
ma. Se per qualche motivo vi fer- 
mate (p.es. per aver premuto il ta- 
sto BREAK), niente problemi, 
battete GOTO 370 e ricominciate. 

Il programma gira su tutti gli ZX 
81 e ZX 80 nuova ROM con l’e- 
spansione da 16 K. 


,5X,CA,CH.SE.ST.3A> 


Figura 2. Esempio di esecuzione 
del programma Minicalc. 


INPUT N 

DIM D$iMXK I 

DIM xh 

SOR PI TO N 


For 


INPUT Xii 
CLS 

NEXT _ dd 
GOosus 15a 


PRINT RF SI,NOT PI;A$R3; "= 
INPUT _X RI. 


PRINT CHAS Tu>iSG1;A$ rr; 
FX (4) $ SV a drag 


PRINT RT 21I,MOT PI) ORDINI? 


IMPUT RA 
IF P>55@8 THEN GOTU aN 


Goro Se 


Listato 2. // programma Minicalc per lo ZX81 senza espansione. 


Minicalc senza espansione 


Il folto gruppo di sinclairisti non 
espansi, in attesa di procurarsi l’e- 
spansione di memoria, gradiranno 
questa versione del Minicalc per la 
loro macchina. 

In questo caso il lavoro non si 
svolge più su un foglio bidimensio- 
nale, ma su uno unidimensionale: 
in pratica il tabellone è costruito in 
10 caselle disposte una sopra l’altra 
e memorizzate in un vettore di n 
clementi (n è il numero fornito in 
input subito dopo il RUN). 

Prima di cominciare bisogna in- 


serire le relazioni, ricordandoci che 
i dati sono memorizzati nel vettore 
X, nella riga 300, facendole seguire 
da un GOTO 5. 


La versione per lo ZX 
senza espansione 


Si dà il RUN, si inserisce il nu- 
mero di caselle e si passa immedia- 
tamente all’input di tutte le caselle 
(prima i commenti, poi i valori). 

Il programma stampa la tabella e 


la scritta ORDINI? e resta in atte- 
sa di un input numerico che serve 
per dire al calcolatore quale casella 
modificare; indi scrive sul fondo il 
nome della casella e l'input per la 
modifica. Continuerà a ritornare il 
messaggio ORDINI? fino a quan- 
do non si inserirà un numero supe- 
riore a 10. Fatto questo, il pro- 
gramma esce dal ciclo di modifica, 
aggiorna i risultati leggendo le rela- 
zioni della riga 300 e ristampa la 
tabella aggiornata con la scritta 
ORDINI? in fondo. M 


simrrl=sir” 
Spectrum 


a casa vostra 
subito ! 


Se volete riceverlo velocemente compilate 
e spedite in busta il ‘‘Coupon Sinclair” e 
riceverete in OMAGGIO il famoso libro 
“Guida al Sinclair ZX Spectrum” di ben 
320 pagine,del valore di L. 22.000. 


EXELCO 


Via G. Verdi, 23/25 
20095 - CUSANO MILANINO (MILANO) 


Descrizione 


Personal Computer ZX Spectrum 16K RAM con 
alimentatore, completo di manuale originale 
Inglese e cavetti di collegamento. 


Personal Computer ZX Spectrum 48K RAM con 
alimentatore, completo di manuale originale 
Inglese e cavetti di collegamento. 


Kit di espansione 32K RAM. 
Stampante Sinclair ZX, con alimentatore da 1,2 A. 


Guida al Sinclair ZX Spectrum 


495.000 


Annunciato 
195.000 


Cassetta programmi dimostrativi per il rapido 
apprendimento alla programmazione e utilizzo 


48.000 


Desidero ricevere il materiale indicato nella tabella, a mezzo pacco raccomandato, 
contro assegno, al seguente indirizzo: 


fa comparire in fondo allo schermo 


Nome [ | Î Î 


LI 
i 


Cognome 


Via 


] 
Ji 


Città 


Data 


L cap. [_ L) 


Partita I.V.A. o, per i 
Codice Fiscale 


| 
| 
| 
| 
| 
| 
| dello ZX Spectrum. 
| 
| 
| 
| 
| 
| 
| 


privati RI 


| Acconto L 


| prezzi vanno maggiorati dell'IVA 18% e di L. 8.000 per il recapito a domicilio 


ATTENZIONE! 
| Tutti i nostri prodotti hanno la garanzia italiana di un anno, data dalla SINCLAIR. 


CONVERSIONI 


La carta del cielo per il 
PET/CBM 


Riceviamo da Nevio Faccini di Padova la con- 
versione del programma “La carta del cielo”. 
Lo ringraziamo e ne approfittiamo per pubbli- 
care una tavola degli aspetti tra i pianeti, neces- 
saria per la comprensione delle “carte” fornite 
dal programma. 


Prima di convertire per il CBM 3032 il programma 
“La carta del cielo”, (Personal Software 3) mi sono 
procurato da un amico che possiede l'Apple il risulta- 
to finale di determinati input iniziali e con queste in- 
formazioni ho iniziato la conversione. 

La parte più difficile è stata quella di disegnare, 
sullo schermo, il reticolo delle “case”, perché nel- 
l'Apple questo viene costruito con le istruzioni 
HTAB e VTAB in cicli FOR-NEXT, istruzioni non 
presenti nel CBM. Ho risolto il problema usando ri- 
spettivamente le POKE 198 e 216, comandate dal 
SYS 57949. Infatti aggiungendo alla appropriata PO- 
KE, il numero di riga o di colonna, si ottiene sullo 
schermo lo stesso risultato; unica differenza è che il 
computer della Commodore vuole un’unità in meno: 


LU 22705 MW Li] Lil 

Cl Hi Ci 

dd hl PI 

Li) a a 

N LL] [i] 
Ri e E 

n LI 

CL] LI 

® DATA=22/07/57 LL] 

M ORA= 4.3 AM (| 

W FUSO OR.=-1 n 
MPG EA LONG.=-11.52 od] 
50 29CAG4B LAT.= 46.23 LL] 
UR 07LES1M TS= GH 15M 565 n 

LI] LÌ 

a LÌ 

MB =ISPETTI sINE ® 


ii PT] 
ME 17LE214GI 27VGI2SNE 29BIZ38NO 165C00 


MA 19LE14M id MSA MESG2I 
VE 25LE11W8 LL] LI 
PL 29LE068 L'| Li) 

o] sa Li] 


Figura 1. La carta del cielo usata per il test 
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abbrevia- nome angolo approssi- 
zione mazione 
CON congiunzione 0° La 

OPP opposizione 180° 7a; 

TRI trigono 120° Te 

QUA quadrato 90° TE 

SES sestile 60° Da 

SQU semiquadrato 45° 29) 

SSE sesquadro 135° 2° 

QUI quinconce 150° 2° 

Questa tavola, con le abbreviazioni degli aspetti e l’ap- 
prossimazione usata, completa le tavole apparse a pag. 
83-87 di Personal Software 3 [N.d.R.]. 


Tavola degli aspetti 


se l’Apple adopera HTAB 10, nel CBM dobbiamo 
mettere POKE 198,9, oppure PRINT TAB(9). 

Come si sa il GET del CBM è dinamico e non sta- 
tico come quello dell'Apple, quindi l’ho dovuto ren- 
dere tale, con la classica linea 10 IF GET (A$)=“ ” 
THEN 10. 

Poi ho apportato qualche personale modifica all’o- 
riginale, per migliorarne il funzionamento. Notando 
che per uscire dal programma si doveva usare il tasto 
dello STOP, per ovviare l’inconveniente e poter usci- 
re, diciamo con più eleganza, al GET di linea 1670, 
ho aggiunto un’altra condizione con la relativa infor- 
mazione: linee 390 e 410. 

Anche la visualizzazione della data è stata modifi- 
cata; come si sa, davanti ad ogni numero vi è uno 
spazio per il segno, che è visibile solo se è il “—” di 
negativo, la data quindi è abbastanza scombinata e la 
linea troppo lunga per essere poi cancellata dal ciclo 
che si trova nelle linee 540 e 550; per questa ragione 
ho aggiunto le istruzioni della linea 480, usando le 
variabili: GG$ per il giorno, MM$ per il mese e AA$ 
per l’anno, facendole poi stampare con le istruzioni 
della linea 560. Naturalmente ho lasciato le variabili 
numeriche originali, perché servono per i conteggi. 

Per andare sul sicuro, dopo avere inserito il pro- 
gramma nella memoria del vostro computer, ed aver- 
lo salvato (non si sa mai) fate il RUN e alla richiesta 
battete la T per tropicale ed i seguenti dati: 


DATA = 22/07/1957 
AM/PM = AM 
ORA = 04.30 
FUSO OR. = -1 


CONVERSIONI 


LONG. = -11.52 
LAT. = 46.23 


Subito dopo l’ultimo inserimento comparirà sullo 
schermo il tempo siderale (TS=), che dovrà essere di 
0H 15M 56S. Alla fine dei conteggi, verrà visualizza- 
to un reticolo uguale a quello in figura, con i dati 
uguali a quelli che si trovano in ogni “casa”. Se così 
non fosse, ricontrollate il listato, perché sicuramente 
vi è qualche errore eventualmente nelle DATA (li- 


DATA QUIOZIO: 
DATA 358.47584, 3595 


358, 
DATA 


DATA 2-4, 0 +. 0012 
9, 00682 
DATA 
89 
DATA 
vs: +1-06577, 
099,0:1.8503 
+25 4. 6920 
00072, .0 -00016,0,5 
273. 27754, 0007, 99.443 
DATA 1.0105% 
+175.46622,1 
+0,9.5 
1098, 112. 79039 


+4771,.49867,. 
.77246,.00063,.4E-4 
7E-4, .008997,0,0 
10957, 276.04597,. 


10,0 
DEF ENS(X)=SIN(X*FI/180): 
DEF FND(X)=X*180/FI: 
SRONCATNAROCLAOLUAO " 
NT CHR$ (147): FI=3. 1415) 
DEF FNQ(X)=SGN(X)*CINT (ABS CX) )+(ABS(X) 
-INT(ABS(X)))#100/60): V$="SQ0G0AGC" 
DEF FNU(X)=X- (INT (X/MO) MO): 
DEF FNW(X) = INT (Xx100+,5)/100 
DEF FNR(X)=X#F1/180 
DEF _FNY (X) SATN (SOR (1-X#X) /X) 
DIM H$(12): DIM R(12,2): DIM H(1 
DIM Z$(12) 
DIM C$(12): DIM A$(8): DIM KE(12): 
DIM C€ ks=" Qi 
FOKE 216,9: POKE 198,11: SYS 57949 
FRINT CHR$(1B) "T"CHR$ (146) 


nee 100/290). Non aggiungo gli ASPETTI che potre- 
te ottenere premendo i numeri da 0 a 9, perché se il 
vostro reticolo è uguale a quello in figura, senz'altro 
anche questi saranno corretti. Per far ripartire il pro- 
gramma premete F. 

I dati relativi agli orari e alle località sono quelli 
pubblicati su Persona! Software 3. Ho variato la sigla 
del segno della Vergine in VG, per distinguerla dalla 
sigla del pianeta Venere e quella del Sagittario in 
SG, per distinguerla da Saturno. 


"ROPICALE "5CHR$(18)"S"CHR$ (146) 
“"IDERALE" 
390 Fi 216,20: SYS 57949: 
FRINT "FER FINIRE FREMI <RETURN>" 
400 GOSUB 1670: SD=0: IF 6G$="S" THEN SD=1 
410 IF 6$=CHR$(13) THEN FRINT CHR$ (147): 
END 
420 PRINT CHR$ (147) 
DEF FNX(X)=ATN(X/SOR(1-X*X)}: MO=360 
FOR I=1i TO 12: READ Z$(I): READ C$<(I 
NEXT I 
FOR I=i TO 12: FOR J=i TO 2 
READ R(I,3): NEXT J: NEXT I 
FOR I=1t TO 8: READ A$(I): NI 
FOKE 216,B: SYS 57949 
PRINT TAB(S 
INFUT "DATA (GG/MM/AAAA)= 
VAL (MID$ (A$,1,2)) 
Y=VAL (MID$(A%,7,5)): 
M=VAL (MID$ (A$,4,2)): FRINT TAB(9 
INFUT "AM/FI 1F$ 
EFT®(A$,3):. MMs=MID$ (A8,4,3): 
:IGHT$ (A$, 2) 
FRINT TAB(9)s: INFUT "ORA (HH. MM} =" 
FO=F 
FRINT TABS) INFUT “FUSO ORARIO: 
XQ=Xs F=FN G(F)}+X 
FRINT TAB(9 
INFUT "LONGT UDINE (GG. MM)="GlS: LO=LS: 


EXE 


INFUT 
B4=FN RC(FN 


SYS 57949 


NEXT ZU: FRINT CHR$(14 PRINT 
560 INT: FRINT: PRINT: PRINT: FRINT= 


s70 TAB(11) "DAT 
i TAB (11): "OR 
580 Fi TAB(11) 
590 Fi TAB(11); "LONG. 
ì TAB(11) 
600 DA (V4 4800) +M 


BEE: MMS: AAS: 


610 J=INT (3) +D+Y INT ([M/48) - 
IF 99171 THEN 636 
620 J=J+INT (IM/4800) INT CIM/ 1200) +58 
sz0 020) +F/24-.5) S 
640 16-69: 11*T+7.S*T#*T) 
IF SD=1 THEN GOSUB 1370 
(segue) 


CONVERSIONI 
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(segue) 


650 :N RUFN UCC8. 646065556+240 
E-S*T*T4F)*1 
660 (2: 45229444. 
670 MCSATN(TANCRA) /D0S (08) ) : 
IF MCO THEM MC=MC+FI 
680 IF SIN(RA)<O THEN MC=MC+FI 
690 ME=FN D(MC) 
700 N DIRA)/15: Y=INTOX): 
NTC(CZ-INT(Z)) #60): 
710 PRINT TAB(8) 3" TS="5STR$(Y)+ 
"H"+STR$(Z)+"M"+STR$(X)+"S": 
GOSUB 1750 
720 GOSUB 1030 
730 FOR I=1 TO 9: MO=2*FI: GOSUB 960: 
M=FN U(5): GOSUB 960: E=FN D(5): EA=M: 
FOR A=1 TO 5 
740 EA=M+E#*SIN(EA): NEXT A: READ AU: 
X=AU* (COS (EA) E): 
Y=AU*SIN(EA)*SOR(1-E+E) 
750 GOSUB 990: +5: 
GOSUB 970: GOSUE 990: 
GOSUB 960: 


—Y}*60: 


Z2=VY: 


GOSUE 990 
IF_A<O THEN A=G+2*FI 

770 GOSUB 970: XX=X: YY=Y: GOSUB 900 

THEN Ci C=FN D(FN U(K+FI)): 

X1=XX: Vi=VY: Z1=ZZ: X=1: 


SOTO s10 

790 WiI=(((R%.5+M1%.5)+#(M1%.5*R%.5))/(R%1.5 
__ #M1%1.5))-COS(Ci-K) 

BOO XX=XX-X1 


NeW LE z=2Z2-Z1: 
IF W1<O THEN X=-X 
N U(C+SD)*X: NEXT I 


586+14648523*T-37*T*T 
262655+1602961611*T-S*T*T: M=3600: 
LL-61)/M: L1=((LL-D)-G)/M 
LL-(C(11)*M))/M: D=D/M: 

2639.6*FN S(L)-669*FN S(L1) 


L-4586.4#*FN S(L-Y)+2369.9#*FN S(Y)+ 
769*FN S(2%L)-206%FN S(L+L1-Y) 

860 ML=ML-411.6*FNS(2#*F)-212*FNS(2*L-Y)+19 
XFN S(L+Y)-165*FN S(L1-Y)-125xFNS(D) 

870 ML=(LL+ML-165*FN S(L1-Y)+148*FN S(L-L1 
)-110XFN S(L+L1)-S5*FN S(2*F-Y))/M 

880 C(10)=FN U(ML+SD) 

890 C(11)=FN U(C(11)+SD): GOTO 1150 

900 X=XX: vY=YY: GOSUB 990: E=A: C=FN DIA): 


Q=INT(23/30)+1: 
ZA=INT(FN WC(ZE/ZO-INTCZ5 

PRO X$=STR$(Z1): 

IF Zi<10 THEN X$="O0"+RIGHT$(X®,1) 

ZZ%=RIGHT$(STR®(INT((Z-Z3)*60+.5)),2) 

IF VAL(ZZ$) 10 THEN Z28= 

b +FIGHT$(ZZ$,1) 

950 Z$=RIGHT$(X$,2)+Z$(0)+ZZ%: RETURN 

960 READ S,51,S2: S=FN R(S+51*T+S2*T*T): 
RETURN 


Z0)) *30)) 


970 IF A=0 THEN A=1.75E-3 
980 X=R*COS(A): ‘#*SIN(A): RETURN 
990 IF Y=0 THEN Y .75E-9 


1000 R=(XKX+YwY} 


SATNEYZK): 


1010 IF YO THEN 
1020 RETURN 


1030 FOKE 216,1: SYS 57949: FOR Isl T0 5 


1010 FRIMT K$:: 
FRINT CHR$(18)MID$(H$/i1),1,1)CHR$ 
)3: FRINT È 

1045 FRINT CHF$ (18!MTD$(H$ 10) 1,1) CHR$ 
di 

1050 FRINT E$i: 


(146 


(145 


FRINT CHR$(18)MID$(H$ (9) ,I,1): NEXT 1 


1055 PRINT CHR$(18)" “"H&(12) 
" “MID (H$(11),6)5 


1060 FRINT E MID$(H$(10),6,1) K$ MID@&(H$ (5 


) 6,1)" "H$(8)" 

1070 FOR Isl TO 5: FRINT TAE 
FRINT CHR$(18)" "CHR$(1 
FRINT TAB(29) 

1075 FRINT CHR&(18)" ": NEXT I 

1080 INT CHR$ (18) " "Hg (1)" “a 


1085 FRINT CHR$(16)" MASAZIO O » 

1090 FOR 1=1 TO 5: INT TAB(9): 
FRINT CHR$(18)" “"CHR$ (146): 
FRINI TAB(29) 


FRINT CHR$(16)" “": NEXT I 
FRINT CHRS$ 18)" “H$ (2) 
"" MID$(H$ 1,1) 


" CASE DI " MID$(H$(4),1,1}5 
1110 FRINT " FLACIDUS" MID$H4 (5) 1,15 
I ECT FOR Is1 TO 5: FRINT 
1120 FRINT CHR$t18)MID®(H$(3) 
6 FRINT k$5 


kK$i 
1+41,1}CHR$(14 


1130 FRINT CHKR$(18)M1D$ (H$(4),1+1,1}CHR8 (14 


6): FRINT Es; 

NT CHR$ (18) MID$ (H$ (5), 1+1,1)=: 
NEXT I: RETURN 

1150 FOR I=1 TO 11 

1160 E(I)=ABS(C(I1)}: NEXT I: 
FOR IS1 TO i11-1: FOR J=I+1 TO lil: 
IF K(J) (I) GOTO 1180 

1170 B1=E(I (I)=k(J E(J)SEI 

1180 NEXT J: NEXT I: FOR I=1 TO il 
FOR J=1 TO 11 

1190 IF K(A)=ABS(C(J)) THEN GOSUB 1290: 

H$ (A) =C$ (J) +R$ 

NEXT J 

ASA+1: NEXT I 

H(13)=H(1): FOR I=1 TO 12: HH=H(T+ 

IF HC(I) SH(1+1) THEN HH=H(I+1)+ Os 

AI 


L $: 66=0: 6 
FOEE 216,R(1I, SYS 57949: 

FOR J=1 TO 1 ci <(I)s 

IF AB=1 AND CC<90 THEN CC=CC+360 
1250 IF 624 THEN GG=1 

1260 IF CC>H(I) AND CC<HH THEN GOSUB 13 
G=G+1 


NEXT J: AB=O: NEXT T 

GOTO 1 

R$=" “: IF.C(J)<O THEN R$= 
C(J)=ABS(C(J)) 


RETURN 

È (J): GOSUB 910: 

IF GG=1 THEN FRINT I$TAB(16)STR$(I 
I$="": GOTO 1360 

FOEE 198,R(I,1) 

FRINT CHR$(157)LEFT$(H$(J), 
IF RIGHT$(H$(J),1)= 

"R" THEN FRINT CHR$(18)"R"CHR$ (146 
GOTO 1 O 
FRINT " "5 

PRINT Z$: H$(J)= RETURN 
SD= (259205536*T+2013B16)/3600 


1): 


Dir 


Di: 


(segue) 


CONVERSIONI 


(segue) 
1380 SD=17.23*SIN(FN R(C(11)))+1.27#*SIN(FN 
R(SD))-(5025.64+1.11*T)*T 
1390 SD=(SD-84038.27)/3600: RETURN 
1400 GOSUB 1540 
1410 FOR I=i TO 11: FOKE 216,6: 
FOKE 198,13: SYS 57949 
1420 FRINT CHR$(18)C$(I)SFC(6) "CENTRO": 
L=li 
1430 FOR J=1 TO il: 
IF C(I)=C(J) THEN GOTO 1530 
1440 X$=CHR$(J+48): IF J=10 THEN X$="x*" 
1450 IF J=11 THEN xs$=" 
1460 FOKE 198,11: SYS 57949: 
FRINT CHR$(18)X$CHR$(146)3: 
FRINT " "C$(J)" 
1465 AS= ABSCCC) CI) 
1470 IF AS>180 THEN AS=360-AS 
1480 FOR K=1 TO 8: 
Palla VAL ARIGHTECASLE 1,3))): 


1490 Te DEVAL (MID$ (A$ (K) ,4,2)) THEN FRINT 
"a"LEFT$ (A$ (KE) 3): s X$="": 

GOTO 1510 

NEXT E 

FRINT X$RIGHT$( 

È " £STRSGINTAAS D+.5)) 3) 
=(Y+.5): GOSUB 910: 


NEXT I: 
GOSUB 1540: 


NEXT J: 
FRINT "SOOCGCONOE 
GOTO 1410 
1540 ZX=11: FOKE 198,13: 
SYS 57949 
1545 FRINT CHR$‘18)"A"CHR$ (146) 
“SPETTI "CHR$ (18) "F"CHR$ (146) "INE" 
1550 FOKE 216,17: FOKE 198,1 SYS 57949 
1560 GET G$: IF G$="" THEN 1560 
1570 IF ASC(6$) 48 AND ASC(G$) 58 THEN I=VA 


POKE 216,17: 


THEN n 

"F" THEN RUN 

1610 FOKE 216,7: FOR a To 11: 
FOKE 198,11: SYS 57949: 


SYS 57949: 


PRINT" “ 


1620 RETURN 
1630 Y=ABS (C(I1}-C(J)): 
180 THEN 1660 
1640 IF (C(1)+C(3))/2.180 THEN 1660 
1650 
1660 Y=(C(I)+C(J)} 
1670 : 
1680 


1690 


FOR I=1 TO 
2=D/90-1: 


1700 EN=1: L: 


FN REN UCFN DC V+D+A2*FN D&G1)I:) 
1720 X=ATN(SINC(AI)/ (COS (AI) «005( -EN*TAN( 
B4)#SIN(0B})): IF X<O THEN X PI 
1730 IF SINC(AZ3)<O THEN X 
FN UFN D(X)+5D) 


RI=RA+FN R(60 

He 

Hil 

1770 R1=l RA+FN RUAZ2 
GOSUB 1810: Hc 
FF=3 

1780 GOSUB 1810: H(3)=L: H(4)=FN U(MC+180): 
FOR I=1 TO 6: H(I)=FN UC(H(I)+SD): 
NEXT I 

1790 FOR I=1 TO 6: Z=FN U(H(I}+180): 
H(I+6)=Z: OSUB F10: H$(I+6)=2$ 

1800 Z=H(I): GOSUB 910: H$(I)=Z$: NEXT I: 
RETURN. 

1810 X=-1: IF Y=1 THEN X=1 

1820 FOR I=1 TO 10 
XX=FN Y(X*SIN(R1)*TAN(0E) *TAN(LA))s 
IF XX<O THEN XX=XX+FI 

1830 R2=RA+(XX/FF) 
IF 1 THEN RS=RA+FI-(XX/FF) 

1840 Ri=R2: NEXT I: L=ATN(TAN(R1) /C0S(08)): 
IF L0 THEN L=L+FI 

1850 IF SIN(R1)cO THEN L=L+FI 

L=FN D(L): RETURN 


FF=1.5: VY=si: 
L: RISRA+FN R(150): 


Raccogliamo in questa rubrica le conversioni 
dei programmi che abbiamo pubblicato nei nu- 
meri precedenti, realizzate dai lettori per i loro 
personal. Invitiamo tutti a contribuire, inviando- 
ci un listato, meglio se anche su supporto ma- 
gnetico, e una descrizione (un paio di pagine 
dattiloscritte) dei problemi incontrati nella con- 
versione, e delle tecniche usate per risolverli. In- 
viate la corrispondenza a 


Personal Software 
Rubrica “Conversioni” 
Via Rosellini 12 
20124 Milano 


Per finire aggiungo una tabella con le POKE e le 
SYS da usare con i vari Basic. 


POKE 
SYS HTAB _VTAB 
Basic 1 (2001) 58843 226 245 
Basic 2 (3032) 57949 198 216 
Basic 4 (4032) 57471 198 216 
Basic 4 (8032) 57455 198 216 


I cambiamenti vanno fatti alle linee 370, 390, 450, 
540, 1030, 1240, 1410, 1460, 1540, 1550, 1610. M 


Grafici sempre 
a portata di mano 


Un programma che 
permette di creare una 
(33 »” a, 

shape table” con il 
minimo sforzo 


di Steve Brown 
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no dei motivi che mi ha 
[ Tspinto a comperare l'Apple 
è la sua capacità grafica ad 
alta risoluzione. Ma il metodo di 
creazione delle tabelle delle figure 
(shape table) proposto dal manuale 
di Applesoft non mi è sembrato al- 
l’altezza. Per ovviare a ciò ho scrit- 
to un programma (vedi il listato) di 
cui elenco alcune caratteristiche. 
© Riceve in input semplici istruzio- 
ni per il disegno; ad esempio TS 
(che traccia muovendosi verso 
sinistra) e NB (che si muove ver- 
so il basso senza disegnare). 
® Traduce questi comandi nei byte 
binari necessari per tracciare la 
curva. 
® Stampa i dati necessari per svi- 
luppare la tabella delle figure. 
® Memorizza su disco la tabella 
dei valori per poterla riutilizza- 
re. 
Il programma funziona su Apple 
II Plus 48 K. 


Spiegazione delle istruzioni e 
routine 


L’istruzione 100 pone HIMEM a 
38000. In questa locazione inizia 
infatti l’area di lavoro in cui viene 
creata la tabella delle figure. L’i- 
struzione 110 passa il controllo alla 
1830, dove comincia l’inizializza- 
zione del programma. Prima però 
vengono le due subroutine. 

La prima, che va dalla riga 120 


alla 260, traduce qualsiasi numero 
decimale contenuto nella variabile 
DN nel suo equivalente esadecima- 
le a quattro byte, nella variabile 
HN$. Le istruzioni dalla 270 alla 
470 effettuano l’operazione inver- 
sa, cioè convertono il numero esa- 
decimale contenuto in HN$ nel suo 
equivalente decimale, nella varia- 
bile DN. 

L’istruzione 1830 pulisce lo 
schermo, ed è la prima operazione 
di inizializzazione. Nelle righe 1840 
e 1850 si predispongono X$ e Y$, 
variabili per il controllo della stam- 
pante. Le istruzioni 1870 e 1880 
preparano l’introduzione della va- 
riabile SN, che dà il numero di fi- 
gure della tabella. Questo numero 
deve essere compreso tra 1 e 25. 
Le istruzioni dalla 1960 alla 2010 
introducono la variabile VL come 
stima del numero di istruzioni di 
plotting necessarie per realizzare la 
figura più grande tra quelle inserite 
dalla tabella. I valori accettati van- 
no da 0 a 1000, e 0 ha valore di 
default 200. Questo numero serve 
per dimensionare i vettori di lavo- 
ro. Nelle istruzioni dalla 2020 alla 
2090 viene richiesto il nome della 
tabella. Le righe dalla 2100 alla 
2130 dimensionano i vettori, che 
hanno i seguenti significati: 


HD$ Conversione esadecimale 

PV$ Input per i vettori di traccia- 
mento 

PL$ Tabella dei comandi di input 


PO$ Rappresentazione binaria 


dei comandi di tracciamento 


ID$ Creazione dell’indice della 
tabella 

ID Conversione binaria 

BT$ Creazione della tabella 


La DATA della riga 2140 è usata 
dalle istruzioni che vanno dalla riga 
2150 alla 2170 per introdurre i valori 
nei vettori HD$, PL$ e ID. Le istru- 
zioni dalla 2180 alla 2210 converto- 
no in esadecimale il numero di defi- 
nizioni della tabella e pongono que- 
sto valore nell’indice (vettore ID$). 
Le istruzioni dalla 2230 alla 2260 at- 
tendono l’introduzione di una loca- 
zione iniziale di memoria per la ta- 
bella. Può trattarsi di un numero de- 
cimale oppure esadecimale (il nu- 
mero termina con H, come 
1DFCH). Quindi si sceglie la routi- 
ne per la conversione adatta, e il 
valore decimale della locazione di 
partenza è posto nella variabile 
SXOS ed il suo equivalente esadeci- 
male in SXOS$. 

Così termina l’inizializzazione 
del programma. Poi passiamo all’i- 
struzione 480, dove con un ciclo 
FOR-NEXT, che si basa sul nume- 
ro di definizioni della tabella, co- 
mincia il programma principale. 

Le righe dalla 490 alla 600 incre- 
mentano il contatore dei vettori di 
tracciamento, visualizzano le istru- 
zioni per l'input ed accettano la va- 
riabile PV$(NN) come vettore di 
tracciamento. L'istruzione 610 ve- 
rifica se il valore introdotto è 00, 
nel qual caso la definizione in que- 
stione è finita. La 620 controlla che 
il comando di tracciamento non sia 
stato introdotto alla rovescia (p. 
es. se al posto di TS è stato intro- 
dotto ST, il computer se ne accor- 
gerà e cambierà l’ordine dei carat- 
teri con l’istruzione 630). La riga 
640 cambia i comandi di una sola 
lettera che non tracciano nei loro 
equivalenti a due lettere. 

Nelle istruzioni dalla 650 alla 670 
si verifica il vettore PL$ per con- 
trollare che sia stato introdotto un 
comando valido. Se così è stato, il 
programma salta alla riga 730. Se 
invece il comando non è valido, le 
righe dalla 680 alla 700 stampano 
un messaggio, producono un se- 
gnale sonoro d’allarme e ripassano 


TAVOLA DI FIGURE --- RANOCCHIA: 


LINEA # BYTE # BINARI 

00110110 
00101101 
01001100 
00000110 
00000000 


LISTA DEI DATI 


FIGURA NUMERO 1 


DATI --------- 
DECIMALI ESA 


- LOCAZIONE — 
DECIMALE ESA 


54 36 
45 2D 
76 4C 
6 06 
o 00 


7680 
7681 
7682 
7683 
7684 


1E00 
1E01 
1E02 
1E03 
1E04 


INIZIO DELLA TAVOLA 1DFC ESA / 7676 DEC 


--- LOCAZIONE --- 
DECIMALE ESA DECIMALI 
7676 
7677 
7678 
7679 


1DFC 
1DFD 
1DFE 
1DFF 


MEMORIA NECESSARIA 9 BYTE 


—--- DATI ---- 


ESA 


LE LOCAZIONI DI MEMORIA E&8 E E9 CONTENGONO GLI INDIRIZZI 


DI INIZIO DELLA TAVOLA DI FIGURE 


LOC EB HEX / 232 DEC = 
LOC E9 ESA / 233 DEC = 


FC HEX / 252 DEC 
1D ESA / 29 DEC 


PER COMPLETARE LE OPERAZIONI DEL PROGRAMMA OCCORRE ESEGUIRE 


BLOAD BTABLE,A7676 
QUINDI 


BSAVE RANOCCHIA,A7676,L9 


PER USARE LA TAVOLA DI FIGURE IN UN PROGRAMMA BASIC 
INSERIRE LE SEGUENTI ISTRUZIONI NEL PROGRAMMA 
PRIMA DI INIZIARE AD USARE IL COMANDO "HGR”. 


PRINT CHR$(4);"BLOAD RANOCCHIA" 
POKE 232, 252 
POKE 233,29 


OCCORRE PROTEGGERE LE LOCAZIONI DA 7676 (1DFC ESA) A 7684 (1DFCESA) 
CON LE OPPORTUNE ISTRUZIONI DI HIMEM E LOMEM 


Tabella 1. Lo stampato fornito dal programma. 


il controllo alla riga 650 per un al- 
tro input. 

L'istruzione 730 elimina qualsiasi 
messaggio eventualmente rimasto. 
La riga 740 definisce il binario cor- 
rispondente al comando introdotto 
nel vettore PV$. Con l’istruzione 
750 si ritorna all’input del prossimo 
vettore di tracciamento. 

L'istruzione 760 dà inizio alla 
conversione dei singoli comandi bi- 
nari nella definizione finale della 
figura, azzerando l’ultimo elemen- 
to nel vettore PV$. Ciò serve ad 
assicurare che il vettore alla fine 
della definizione termini nel modo 
giusto. Le variabili BC e BD ven- 
gono azzerate nell’istruzione 760. 
BC funge da contatore di byte; BD 
verrà usato più avanti nel program- 
ma. 


L'istruzione 770 inizia un ciclo 
FOR-NEXT per leggere il vettore 
PV$ con salti di tre elementi. La 
780 incrementa il contatore di by- 
te. L'istruzione 790 crea il prossi- 
mo elemento del vettore BT$ con 
una rappresentazione a nove carat- 
teri dei prossimi tre vettori di plot- 
ting. Se un byte fosse composto da 
nove bit, il programma potrebbe 
continuare con i tre elementi di in- 
put successivi. 

Siccome non è così, il program- 
ma deve controllare se il primo ca- 
rattere è un 1. Se è così, l’istruzio- 
ne 840 annulla le prime tre posizio- 
ni; poi le righe 850 e 860 decre- 
mentano il contatore di byte. Così 
si passa al prossimo byte libero nel- 
la tabella. 

L'istruzione 870 assegna al byte 
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binario finale gli otto caratteri più 
a destra. L'istruzione 880 chiude il 
ciclo FOR-NEXT. Le righe dalla 
890 alla 930 assicurano di nuovo 
che il byte finale della definizione 
della figura contenga tutti zeri. 

Con le istruzioni dalla riga 940 
alla 1010 la routine di stampa co- 
mincia a scrivere le intestazioni. Le 
righe dalla 1020 alla 1220 stampano 
le singole locazioni di memoria ed i 
dati associati. L’istruzione 1230 
memorizza l’equivalente decimale 
dei tre vettori di plotting. La 1240 
completa il ciclo FOR-NEXT e 
torna a calcolare i tre vettori di 
tracciamento successivi. 

Le istruzioni 1250 e 1260 spengo- 
no la stampante. Le righe dalla 
1270 alla 1310 calcolano il valore 
indice per iniziare la prossima defi- 
nizione di figura. L'istruzione 1320 
completa il ciclo FOR-NEXT ini- 
ziato alla riga 480 e torna all’input 
della prossima definizione di figu- 
ra. 

Le istruzioni dalla 1330 alla 1790 
stampano l’indice della tabella dei 
valori. Le istruzioni dalla 1800 alla 
1820 completano il programma ar- 
chiviando la tabella delle figure co- 
me file binario su disco. 

C'è un ultimo passo da fare. Poi- 


ché la tabella dei valori è registrata’ 


con il nome BTABLE alla locazio- 
ne di memoria 38000, dovete cari- 
carla nella giusta locazione e poi 
salvarla su disco con il suo vero no- 
me. I comandi per fare questo so- 
no illustrati nell'esecuzione dimo- 
Strativa. 

La tabella delle figure può ora 
essere usata in qualsiasi program- 
ma. Anche le istruzioni Basic ne- 
cessarie per caricarla dall’interno 
di un programma sono presenti 
nell'esecuzione di prova. 


Come funziona il programma 


Quando si esegue il programma, 
bisogna fornire il numero di figure 
presenti nella tabella. Scrivete un 
numero compreso tra 1 e 25. (Si 
potrebbe modificare il programma 
per poter considerare un numero 
più grande.) Vi sarà poi richiesto 
l'input di una stima sul numero di 
60 


Listato 1. Programma che crea tabelle di figure ad alta risoluzione con un 


Apple II Plus 48 K. 


Di=0: D2=0: D3=0: D4=0: DS=DN 
IF DN“16 THEN 210 
IF DN<256 THEN 200 
IF DN<4096 THEN 170 
Di=INT(DN/4096) 

5- (D1*4096) 

NT (D5/256) 


5- (D3*16) 

HN$=HD$ (D1+1)+HD$(D2+1)+HD$(D3+1)+HD$(D4+1) 
IF LEN(HN$)=4 THEN 260 
HN$="0"+HN$ 

GoTO 3rO 

RETURN 

IF LEN(HN$)=4 THEN 300 
HN$="0"+HN$ 

GOTO 270 

FOR X=1 TO 16 

IF MID$(HN$,4,1)=HD$(X) THEN 330 
NEXT X 

D4=X-1 

FOR X=1 TO 16 

IF MID$(HN$,3,1)=HD$(X) THEN 
NEXT X 

DI=X-1 

FOR X=1 TO 16 

IF MID$(HN$,2,1)=HD$(X) THEN 410 
NEXT X 

D2=X-1 

FOR X=1 TO 16 

IF MID$(HN$,1,1)=HD$(X) THEN 
NEXT X 

Di=xX-1i 

DN= (D1*4096)+(D2*256)+(D3*16)+D4 
RETURN 

FOR DA=1 TO SN 

NN=0 

HOME 

NN=NN+1 


VTAB 1: HTAB 2: PRINT"TAVOLA DI FIGURE "sSLNAME$: PRINT 


" FIGURA NUMERO ":DA 


VTAB 4: HTAB 2: PRINT"BATTI IL FROSSIMO VETTORE": PRINT 


" DI TRACCIAMENTO; " 


VTAB 6: HTAB 2: PRINT"*00° FER TERMINARE QUESTA FIGURA" 


VTAB 10: HTAB 2: PRINT 

“"BATTI "*T" FER TRACCIARE O *N° FER NON": PRINT 
" TRACCIARE, SEGUITO DALLA" 

VTAB 12: HTAB 2: PRINT 

"DIREZIONE IN CUI MUOVERE (A,B,S,D)." 


VTAB 14: HTAE 2: PRINT"(SE E° BATTUTA SOLO LA DIREZIONE": 


PRINT" VIENE ASSUNTO "NESSUN TRACCIAMENTO”)." 


VTAB 18: HTAB 4: FRINT"FIU” COMANDI DI NON TRACCIAMENTO" 
VTAE 19: HTAE 4: PRINT"VERSO L'ALTO POSSONO FROVOCARE UN 


ERRORE IN QUESTA DEFINIZIONE DI FIGURA" 
VTAB 22: HTAB 2: INFUT FV$(NN) 
IF PV$(NN)="00" THEN 760 
IF MID$(FV$ (NN) ,2,1)<>"T" THEN 640 
FV$ (NN) =MID$(FV$ (NN) ,2,1)+MID$(FV$ (NN) 1,1) 
IF LEN(FV$ (NN) )<2 THEN FV$(NN)="N"+FV$ (NN) 
FOR X=1 TO 13 
IF FV$(NN)=FL$(X) THEN 730 
NEXT X 
HTAB PRINT FV$(NN):;" INPUT NON VALIDO" 
tù TO 50 
TL=PEEK (-16336) 
NEXT Tk 
GOTO 600 
VTAB 22: HTAB 2: FRINT" 
PV$ (NN) =FO$ (X) 
GOTO S10 
FV$ (NN) ": BC=O: BED=0 
FOR RX=1 TO NN STEP 3 
BC=EC+1 
AA$=FV$ (RX+2)+FV$ (RX+1)+FV$ (RX) 
ET$ (BC) =AA$ 


vettori di tracciamento nella defini- 
zione della figura più grande che 
intendete elaborare. 

Qualsiasi numero tra 0 e 1000 va 
bene. Se si introduce zero, viene 
assunto il valore 200, che è suffi- 
ciente per la maggior parte delle fi- 
gure semplici. 

Poi servirà il nome della tabella 
delle figure. È permesso qualsiasi 
nome. Il prompt successivo chiede- 
rà una locazione di memoria inizia- 
le per la tabella delle figure. Potete 
scrivere qualsiasi numero, tenendo 
conto però che la tabella non ven- 
ga poi modificata da altri program- 
mi, maschere per video, o altro. Il 
numero può essere introdotto in 
notazione decimale (p. es. 7676) o 
esadecimale, posponendovi una H 
(p. es. 1DFCH). 

Quindi il programma chiede l’in- 
troduzione effettiva dei vettori di 
tracciamento. I comandi per que- 
sto sono: 


TS Traccia verso sinistra 

TD Traccia verso destra 

TB Traccia verso il basso 

TA Traccia verso l’alto 

00 Fine di questa definizione di fi- 
gura 

NS (o S) Spostamento a sinistra 
(senza tracciare) 

ND (o D) Spostamento a destra 
(senza tracciare) 

NB (o B) Spostamento verso il 
basso (senza tracciare) 

NA (0 A) Spostamento verso l’alto 
(senza tracciare) 


Questa fase si protrarrà finché 
non saranno definite tutte le figu- 
re. Voglio ancora sottolineare la 
necessità di evitare il caso in cui un 
byte risulti formato solo da zeri. 
Ciò provoca l’interruzione imme- 
diata del disegno. La causa princi- 
pale di questo è l’introduzione di 
molti comandi di spostamento a 
penna alta. Vi suggerisco di partire 
dal punto più alto della curva e di 
procedere verso il basso. Se siete 
costretti a muovervi verso l’alto, 
fatelo con traiettoria a zig zag. 

Quando questa operazione sarà 
terminata, i dati verranno converti- 
ti, stampati e memorizzati su disco 
come file binario. Quindi dovrete 
caricare la tabella nella sua locazio- 


Listato 1. (segue). 


810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


980 
990 
995 
996 
1000 


1010 
1020 
10350 
1040 
1050 
1060 
1070 


IF LEFT$(BT$(BC),1)= 
IF MID$(ET$(BC),2,2 
GOTO 870 
BT$(EC)="000"+MID$(BT$(EC),4,6) 

IF MID$(ET$(EC),4,3)="000" THEN RX=RX-1 
RX=RX-1 

ET$(BC)=MID$(ET$(EC),2,8) 


THEN 840 
00" THEN 840 


NEXT RX 

IF LEN(ET$(EC))=8 THEN 920 
BT$(BC)="0"+BT$ (BC) 

GOTO 890 


FRINT Y$; "BON" 
PRINT" " 
PRINT"TAVOLA DI FIGURE --— ":SLNAME$:": FIGURA NUMERO "5 


DA 

PRINT" " 

FRINT" 

PRINT"-------------- DATI 

PRINT" — LOCAZIONE -" 

PRINT" LINEA # BYTE # BINARI 
DECIMALE ESA" 

PRINT" " 

FOR CX=1 TO EC 

BD=0: BX=0: BY=0 

BX$=LEFT$ (ET$(CX),4): BY$=RIGHT$(BT$(CX),4) 

FOR IO=1 TO 4 

BX=BX+(ID(IQ)*VAL (MID$(BX$,I0,1))) 

BY=BY+(IDC(I0)*VAL(MID$(EY$,I0,1))) 

NEXT I@ 

DN=BX 

GOSUR 120 

BED$=MID$ (HN$,4,1) 

DN=BY 

GOSUB 120 

BE$=MID$ (HN$,4,1) 


143 
1440 
1450 
1460 
1470 
1480 
1490 


1500 


1510 


1520 


BD=DN 

DN=SXO0S+CX+IX-1 

GOSUB 120 

SYO$=HN$ 

FRINT TAB(6) CX; TAE(9-LEN(STR$ (CX) ))5CX+IX5 
TAB(10-LEN(STR$(CX+IX)))53BT$(CX);TAB(9);BD; 


TAB(12-LEN(STR$(ED))):BF$;TAB(8) ;SXOS+CX+IX-13 


TAB(11-LEN(STR$ (SXOS+CX+IX-1))):SY0$ 
POKE 3B8000+CX+IX-1,BD 

NEXT CX 
PRINT Y$; 
PRINT X$5 
DN=I1X 
GOSUB 120 

ID$ (3+ (DA-1)*2)=RIGHT$(HN$, 2) 
ID$ (4+ (DA-1) *2) =LEFT$ (HN$, 2) 
IX=IX+BC 

NEXT DA 

PRINT X$5"PR#1" 

PRINT Y$5 "BON" 

PRINT" ” 

PRINT"LISTA DEI DATI" 

PRINT" " 


40N" 
FR#O" 


FRINT"INIZIO DELLA TAVOLA ":SX0S$;" ESA / "5SX0S;" DEC" 


PRINT" " 


FRINT"--- LOCAZIONE --- =Se=" Dani == 


FRINT"DECIMALE ESA 
PRINT * 

FOR OX=1 TO(2*SN) +2 
HN$=ID$ (QX) 

GOSUB 270 

11=DN 

DN=SX0S+@X-1 

GOSUB 120 
I12$=HN$ 
FRINT SXOS+0X- 
I13 TABC(10-LEN(STR$(I1)))5 ID$ (OX) 
FOKE 38000+0X-1,I1 

NEXT OX 


DECIMALI 


DECIMALI 


ESA 


3 TAB(12-LEN(STR$(SXO0S+QX-1)));I2$%5;TAB(15)5 


(segue) 


Listato 1. (segue). 


ne di memoria e registrarla col no- 
me giusto. Tutti i comandi necessa- 
ri a questo scopo sono elencati nel- 
la stampa di output, assieme alle 
istruzioni Basic per caricare la ta- 
bella dall’interno di un program- 
ma. 

Vi raccomando di usare carta 
adatta per la stesura dei grafici; co- 
sì aumenta la velocità d’esecuzio- 
ne. 
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1940 G0T0 1890 


1950  VTAB 13: HTAB 10: PRINT 
1530 PRINT" “ n » 
1540 PRINT“MEMORIA NECESSARIA "s1X;" BYTE " 1960. HOME 
1550. PRINT" " 1970 VTAB 9: HTAB 2: PRINT 
1560 PRINT"LE LOCAZIONI DI MEMORIA E&8 E E9 CONTEN “QUANTI VETTORI DI TRACCIAMENTO" 
GONO GLI INDIRIZZI": PRINT 1980 VTAB 10: HTAB 2: PRINT 
"DI NINIZIOL DELLA. TAVOLA DI FIGURE" "CI SONO APPROSSIMATIVAMENTE NELLA": PRINT 
1570 PRINT" " " FIGURA PIU” GRANDE DA DEFINIRE?" 
1580 00E8": GOSUB 270: 1990 HTAB 2: PRINT" (MASSIMO 1000)" 
1590 + GOSUB 270: 2000 HTAB 2: PRINT 
1500 MID$(SX0S$,3 270: D6=DN VIENE ASSUNTO 200" 
1610 "+MID$(SX0S$,1,2 270: D9=DN  |2010 HTAB 2: INPUT VL 
1620 PRINT"LOC EB HEX / ":D8:" DEC = 2020 IF VL=0 THEN VL=200 
MID$ (SX0S$,3,2)3" HEX / ":D6:" DEC" 2030 IF VL<1001 THEN 2060 
1630 PRINT"LOC E9 ESA / ":D73" DEC = "i 2040 VTAB 18: HTAB 2: PRINT VLs 
MID$(SX0S$.1,2)3" ESA / “:D9;" DEC" " E° UN INPUT ERRATO" 
1640 PRINT" ": PRINT" » 2050 GOTO 2010 
ECROMIGRINESEER COMPLETARE |LETORERAZI ONISDEL ‘PROGR | 20594 VTAB/ 18: HTAB 21° PRINT 
AMMA OCCORRE ESEGUIRE" hi; ui 
1660 PRINT" " 2070 HOME 
1670 FRINT"BLOAD BTABLE,A":SXOS: PRINT OSO MAMI ARRO RATORI: 2A RINT 
1680 PRINT'QUINDI": FRINT FRA TToliciNum ipaffasezeNane E (PRINT 
1690 FRINT"ESAVI "351 ga" DI PALI " % " A QUESTA TAVI de 
* PRINT: SR SR SENESI dA SOS I 2090 VTAB 11: HTAB 2: INFUT SLNAME® 
1700. PRINT"PER 1 s& | 2100. DIM Hps$(16) 
CRAL LA TAVOLA DI FIGURE IN UN FR|Zi10 DIM PUS(VL+INT(VL/10)+10+(2xSN)) 
1710 PRINT 2120 DIM FL$(13),PO$(13),ID$((SN#2)+4) 
CI ° 2130 DIM ID(4),BT$(INT(VL/2)+INT(VL/10)) 
ALESERIRE, LE SEGUENTI ISTRUZIONI NEL FROGRAM | ;20 DATA 0,1,2,3,4,5,6,7,8,9,AyB,C.D,E,F,00,000, 
1720 PRINT TA, 100, TD, 101,T! 10, TS, 111,NA,000,ND, 001, 
"PRIMA DI INIZIARE AD USARE IL COMANDO *HGR” NEURO e: LT no OO Alia ar 01008: O LL Onda za 
1730 PRINT" » 2150 FOR X=i TO 16: READ HD$(X): NEXT X 
1740 PRINT"PRINT CHR$(4);"sCHR$(34) : "BLOAD "3 21650 FOR X=1 TO 1 READ FL$(X): READ FO$(X): 
SLNAME$; CHR$ (34) NEXTEX 
1750 FRINT"POKE 252. ";D6 2170 FOR X=1 TO 4: READ ID(X): NEXT Xx 
1760. PRINT"FOKE ZI BOMATNSSN 
1770 PRINT" 2190 GOSUB 120 
1775 DN=SXOS+IX-1: GOSUB 120 2200 ID$(1)=MID$(HN$,3,2) 
1780 FRINT"OCCORRE PROTEGGERE LE LOCAZIONI DA "5; 5 ERE RIrTooI 
("3SXO0S$3" ESA) A "iSXOS+IX-15" ("5 5230: VTAB 4: HTAB 2: PRINT 
1790 "BATTI L'INIZIO DELLA LOCAZIONE DI": FRINT 
"CON LE OPPORTUNE ISTRUZIONI DI HIMEM E LOME CAMENORLAs DI (Q9EStA, MANDA DE FIGURE. 
[a 2240. VTAB 10: HTAB 2: PRINT 
1800 PRINT X$:"FR#0" "BATTI SOLO IL NUMERO SE E° DECIMALE" 
4810 FRINT CHR$(4) "ESAVE BTABLE,A3B000,L"3IX 2250 HTAB 2: FRINT 
1820 END "O TERMINALO CON UNA ?H?® SE ESADECIMALE" 
1830 HOME 2260  VTAB 14: HTAB 2: INFUT SX0S$ 
1840. X$=CHR$(13)+CHR$(4) 2270 IF RIGHT$(SXOS$,1)="H" THEN 2 
1850 Y$=CHR$(9) 2280  SXOS=VAL (SX0S$) 
1860 HOME 2290 DN=SX0S 
1870 VTAB 8: FRINT 2300 GOSUB 120 
"BATTI IL NUMERO DI FIGURE DI QUESTA TAVA| SS CAOTEHNE 
OLA "; 2320 GOTO 2370 
PRINT" (DA 1 A 25) "; 2330 SXOS$=MID$(SX0S$,1,LEN(SX0S$)-1) 
INFUT SN 2340 HN$=8X0S$ 
IF SNSO THEN 1920 2350 GOSUB 270 
GOTO 1930 2360 SXOS=DN 
IF SN<26 THEN 1950 2370 {IX=2#(2xSN) 
VTAB 13: HTAB 10: FRINT SN; 2380 GOTO 480 
" NON E° PERMESSO" 2390 END 


Questo programma non risolve 
tutti i problemi di alta risoluzione 
dell'Apple, ma è un utile mezzo 
per chi ogni tanto deve crearsi del- 
le tabelle di valori. Io l’ho usato 
per costruire molte tabelle, da 
quelle relative alle più semplici fi- 
gure geometriche a quelle per un 
completo set di caratteri. Modifi- 
cando alcune dimensioni dei vetto- 
ri, potete fare qualsiasi grafico. 


Questo progfamma è disponi- 
bile su disco per l'Apple. Vede- 


te nelle ultime pagine il 
“Servizio programmi”. 


PICCOLI ANNUNCI 


Commodore VIC 20 


Gestione magazzino per VIC 20+drive+printer+8 K 
RAM, 2400 articoli, altissima velocità di lavoro, stam- 
pa di inventari anche con valore. Disco programma 
L. 50000, disco archivio cadauno L. 25000. Ferruc- 
cio Dabene, piazza Bengasi, 27, 10024 Moncalieri 
(TO), tel. 011-6060253 


Cambio per VIC 20 programmi di vario genere e 
esperienza sulla grafica ad alta risoluzione. Cercasi 
programmi (max 6 K) per ricetrasmissioni in RTTY 
con il VIC 20; per ulteriori informazioni scrivete, ri- 
sponderò a tutti. Roberto Oselladore, via Fausta 136/ 
A int. 5, 30010 Ca Savio (VE) 


Commodore PET/CBM 


Attenzione! pettomani parmensi: sono un ragazzo di 
18 anni e cerco megapatiti (molto gradite le megapa- 
tite) per sviluppare software Basic/L.M. Il mio siste- 
ma: 3032/3040/4022. Fabio Curati, via Montebello 
41, 43100 Parma, tel. 56127 


Vendo cassetta contenente 20 giochi americani di 
cui 3 sonori a L. 26000 anticipate oppure L. 30000 
contrassegno. Inoltre listato per word processor a L. 
15000 il tutto per il PET, specificare modeilo. Luigi 
Menghi, via Maranello 7, 00125 Acilia (Roma), tel. 
06-6069235 


Sinclair ZX80-ZX81-Spectrum 


Vendo programmi per ZX Spectrum 16/48 K a prezzi 
stracciati (massimo L. 12000 per un programma da 
48 K) tra cui i favolosi Scacchi a 10 livelli, Gulpman, 
3D e Startrek 48 K. Richiedere elenco con più di 
cento programmi in continuo aggiornamento, alle- 
gando L. 1000 in francobolli, per poter poi scegliere i 
programmi preferiti (su cassetta o su listato) che ver- 
ranno poi spediti in un nastro personalizzato. Luigi 
Mongardi, via Prov. Selice 16/C, 40026 Imola (BO) 


Cerco possessori del computer ZX81 per scambio 
software e programmi. Eventualmente anche qualcu- 
no che conosca già lo ZX Spectrum. Risposta assi- 
curata a tutti. Riccardo Taccia, via Redi, 53, 57100 
Livorno 


Vendo scambio software per ZX80/81 8 K ROM, 1/ 
16 K RAM. Scrivere inviando elenco o telefonare ore 
pasti a Sandro Romano, via Adelasia 11, 07046 Por- 
to Torres (SS), tel. 079-514501 


Importante! Possessori di ZX81 con espansioni di 
E.2000 e non, si sta formando un club nella zona 
Liguria, Genova, il cui scopo principale è uno scam- 
bio di informazioni e di esperienze. Larghi contatti 
anche con altri club fondati in tutta Italia. Compu. ZX 
Club, Frangioni Luca, P. Giaccone 7, 16100 Genova 
(Porto) 
Sinclair club costituito da utenti ZX per scambio idee 
e esperienze hardware. L'adesione del costo di L. 
18000 dà diritto a ricevere un bollettino trimestrale e 
a facilitazioni varie. Sinclair Club, via Molino Vecchio 
10/F, 40026 Imola (BO) 


| lettori che voglio vendere, comperare o scambiare 
software, o desiderano dare informazioni possono 
compilare il tagliando pubblicato in fondo a questa ru- 
brica. Il servizio è gratuito. La redazione si riserva il 
diritto insindacabile di rifiutare, sospendere o modifica- 


re qualsiasi inserzione. 


Gli annunci sono riservati ai privati o ai club senza 


scopo di lucro. 


Daremo la precedenza agli annunci che si riferiscono 
a software, programmi, libri e riviste, club per personal 
computer. 


Vendo o scambio software per ZX81 1K/16 K. Tanti 
e fantastici per tutti i gusti ed età. Richiedi l'elenco 
inviando L. 500 in francobolli. Risposta assicurata. 
Fausto Lovisolo, piazzale Barsanti 5, 21052 Busto 
Arsizio (VA), tel. 0331-626543 (ore pasti) 


Apple Il 


Acquisto programmi tecnici per geometri, ingegneri, 
periti, architetti solo se aperti, soprattutto se con gra- 
fica per Apple Il e personal computer di larga diffu- 
sione. Fornire listino e prezzi. C.T.E. Geom. Pucci 
Mario, via Centrale Umbra 36, 06038 Spello (PG), 
tel. 652222 


Cerco copia istruzioni del programma “Flight 
Simulator" per Apple Il. Gabriele Scanavino, via M. 
Grosso 24, 12010 Entracque (Cuneo), tel. 0171- 
978171 


Texas TI99/4A 


Cambio ZX80+16 K con monitor. Compro, vendo, 
cambio software TI99/4A. Salvatore Sbacchis, via 
Don G. Minzoni 2/E, 90143 Palermo, tel. 091- 
547670 


Vendo micro N.E. composto da: LX380, LX382, 
LX383, LX384, LX385, LX387, LX388, LX392. II tutto 
chiuso in contenitore a L. 700000. Telefonare ore 
ufficio al 4388-2677. Vendo inoltre LX386 a L. 
100000. Ezio Gazzola, via Gavirate 16, 20148 Mila- 
no, tel. 406115 


Vendo VIC 20 VCX-1001 con manuali (VIC revealed 
e Programmer's reference guide) ed una decina di 
giochi. Il tutto usato pochissimo a L. 500000. Lucia- 
no Zaccagni, via Zuccoli 19, 20145 Milano, tel. 
6896639 (ore serali) 


Compro registratore Commodore (per VIC 20) usato 
in buono stato. Michele Bergonzoni, via Siepelunga 
58, 40141 Bologna, tel. 051-481141 


Scambio programmi di ogni genere ma soprattutto 
cerco programmi di giochi per TI99/4A. Alessandro 
De Chiara, via Niccolini 10, 50121 Firenze, tel. 
663622 


Cerco programmi per il nuovo computer della Texas 
Instruments TI99/4A per acquistarli o per scambiarli. 
Luciano Pezza, via 24 maggio 35, 31015 Conegliano 
(TV), tel. 31124 


Diversi 


Cambio Visicale con programmi calcolo cemento ar- 
mato. Giuseppe Monte, via Toro 6, 20060 Cassina 
de' Pecchi (MI), tel. 02-9521082 


Scambio 2000 francobolli commemorativi mondiali 
diversi con programmi e giochi Sharp MZ80, VIC 20, 
Texas, Atari, Activision, Apollo, Hanimex e Philips. | 
francobolli sono tutti di gran valore! Federico Violin 
(anni 12), via Breo 58, 35028 Piove di Sacco (PD), 
tel. 049-5840893 


Scambio o vendo programmi per VIC 20 e BBC, 
scambio anche idee hardware per BBC e posso pro- 
‘curare espansioni di memoria e interfacce. Lucio Ro- 
ta, via V. Levi 5, 42100 Reggio Emilia, tel. 0522- 
30155 


Hardware 


Vendo CBM 4040 floppy disk usato pochissimo. 
Vendo anche progr. per gestione archivio dati (log. 
radioamatori, elenchi clienti, telef. biblioteca ecc.) 
con defîn. voci, ricerca veloce dati, aggiorn. ecc. (per 
8032). Roberto Vendrame INSVRR, via Maso della 
Pieve 72, 39100 Bolzano, tel. 0471-940615 (ore pa- 
sti), 41333 (int. 286 ufficio) 


completa, “30 programmi con lo ZX 80", 
"Programmazione dello Z80", Jackson vendo a L. 
‘300000 preferibilmente in zona. Cartucce giochi VIC 
20 L. 35000. Fabiano Cattaneo, via Moreschi 75, 
22072 Cermenate (CO), tel. 031-771818 


indicazioni: 


Vendo Atari CX2600 nuovo imballato e perfetto, 
completo di cartuccia “Basic programming”, tastieri- 
na per Basic e altre cartucce games con circa 100 
giochi. Il tutto a L. 400000+spese spedizione. Piero 
Discacciati, via Paganini 28/B, 20052 Monza (MI), 
tel. 039-29412 


francese “La pratique du ZX81"+software L. 
400000. Bernard Van Der Stichele, via Pisistrato 50, 
00124 Roma (Casalpalocco). tel. 6095986 


Vendo ZX81 con espansione da 32 K+programmi 
vari+alimentatore, cavetti, etc. a L. 380000. Achille 
Lamma, via Opicina 3, 48100 Ravenna, tel. 0544- 
420782 


Vendo ZX80 N. ROM+slow funzionante L. 170000. 
Scheda 32 K RAM per ZX80/81 senza integrati L. 
35000 completa di zoccoli e compon. passivi. Scam- 
bio programmi per ZX80/81. Scrivere o telefonare 
ore pasti. Armando Pavese, via Cottolengo 59, 
13051 Biella (VC), tel. 015-27353 


ZX80 trasformato in 81. Slow funzionante + registra- 
tore inverse video tutto contenuto in elegante vali- 
getta rigida+tastiera meccanica escludibile con con- 
nettore. Tutto a L. 300000. Ore ufficio. Pippo Musu- 
meci, via Gravina 15, 95014 Giarre (CT), tel. 095/ 
931361 


Vendo Sinclair ZX81 più espansione 16 K alimenta- 
tore giochi vari cassetta L. 350000. Corrado Alba, via 
Montefollino 2, 00141 Roma, tel. 4751935 


Acquisto contanti se vera occasione home computer 
Atari 800-810-410 anche software. Telefonare per 
offerta. Gino Piombino, via Marconi 7/24, 39100 Bol- 
zano, tel. 0471-30160 


Vendo Sinclair ZX80 corredato di interfaccia a funzio- 
ne slow, nuova ROM 8 K, cavi, manuali, alimentatore 
e modifica per inverse video a L. 250000 in blocco. 
Vendo anche espansione 16 K RAM a L. 125000. 
Alessandro Bartolini, via 225" (Monteverde) 6, 
63100 Ascoli Piceno, tel. 0736-51412 


Un annuncio sarà più efficace se seguirete queste 


® La prima parola deve essere esplicativa del vostro 
‘messaggio: scambio, vendo, compro, cerco... Per ren- 
derla più evidente la stamperemo in corsivo. 


® Nel testo, riferitevi ad un solo tipo di computer (VIC 


20, ZX80,...). L'annuncio apparirà sotto la testata relati- 
va a quel computer. Se volete fare un annuncio per 


due o più computer, compilate due tagliandi. 


® Date il vostro recapito con esattezza: nome e cogno- 
me, via e numero, cap e località, provincia, prefisso e 
numero telefonico. 


Che cosa ha in più 
Personal Kid? 


PREZZO (IVA escl.) 


CPU BOARD 48 K RAM 


Tastiera ASCII con pad 
numerico esteso e tasti 
funzionali 


UNITÀ CENTRALE 
completa di alimentatore, 
tastiera ASCII dotata di 
pad numerico esteso e tasti 
funzionali, contenitore 


650.000 


210.000 


1.210.000 
1.260.000 


Con tastiera incorporata 
Con tastiera separata 


Costo Basso 
Lettere minuscole 


Tastiera con pad 
numerico + i segni 

delle operazioni 

Repeat automatico 

Set di tasti funzionali per 
l’esecuzione 

immediata dei principali 
comandi 


Completo controllo del 
cursore 


Zoccolo per memoria 
EPROM 


Disponibilità del sistema 
in versione 

open frame o vestita in più 
configurazioni 


Compatibile Apple 


PERSONAL 
/| 


SIPREL 1.04, Via Di Vittorio, 82 - Zona Ind, Bai 
ANCONA TEL 071/0046308 
PESCARA T 


Cercasi Concessionari 
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Vendo Texas TI99/4A+cavo per registratore ancora 
in garanzia a L. 500000. Telefonare ore pasti a: 
Gianmaria Gergori, via Volturno 9, 27100 Pavia, tel. 
0382-36630 


Vendo ROM 8 K+mascherina per ZX80 L. 40000. 
Interfaccia slow per trasformare ZX80 8 K in ZX81 
(ancora da collegare, mai usata) L. 35000. Telefona- 
re per accordi ore pasti. Paolo Ferrami, via Verdi 9, 
26011 Casalbuttano, tel. 0374-60259 


Vendo sistema Sinclair: ZX81+16 K+stam- 
pante+aliment.+manuali. Tutto nuovo (1 mese di vi- 
ta) per Atari a Natale. Prezzo L. 510000 pagamento 
anticipato o contrassegno. Carta per stampante + 
programmi a richiesta. Fabio Berno, via S. Francesco 
27, 20010 Pogliano (MI), tel. 02-9341921 


Vendo Sinclair ZX80 1 K RAM 4 K ROM completo 
alimentatore con cavetti, manuali, imballo L. 110000. 
Telefonare Filippo Salvalaggio, Cannaregio 3541/B, 
30121 Venezia, tel. 041-28364, ore pasti. 


Vendo computer Video Genie 3003 16 K di RAM 
linguaggio Basic esteso livello Il del TRS-80. Regi- 
stratore per caricare programmi incorporato. Dotazio- 
ne di numerosi programmi su cassette più libri con 
listati in italiano. L. 659000. Ermenegildo Crippa, via 
Milano 7/2, 22050 Lomagna (CO), tel. casa 039- 
58345 oppure 02-741390 


Vendo causa passaggio ad altro sistema i seguenti 
materiali: PET/CBM 3032 L. 900000 e stampante 
Commodore 4022 a L. 800000. Marco Favuto, corso 
Adriatico 8, 10129 Torino, tel. 011-586080 


LX83/4 LX86 completa di 8 K RAM LX388 LX390 
tutte perfettamente funzionanti a L. 500000 + pro- 
grammi vari in regalo. Tel. ore serali. Bruno Palladi- 
no, via Risorgimento 2, 20021 Bollate (MI), tel. 02- 
3502008 


Svendo ZX81 + 32 K RAM+inverse 
video+beeper+alimentatore 2A+manuali italiano- 
inglese+appunti, fotocopie varie ZX81+sound 
board+ampl. per sound board con mother board al 
miglior offerente da L. 350000 in su. Marco Minucci, 
via Lepanto 111, 80125 Napoli, tel. 619927 


Vendo TI59 con stampante PC100C con modulo ing. 
e 40 schedine imballo originale, manuali, software L. 
420000. Marco Minucci, via Lepanto 111, 80125 Na- 
poli, tel. 619927 


Vendo VIC lightpen nuovissima (1 mese di vita) cau- 
sa doppio regalo a L. 90000 Stefano De Santis, via 
Papa Giovanni XXIII 43, 20091 Bresso (MI), tel. 
6108250 


Vendo frequenzimetro LX358 di Nuova Elettronica 
mai usato e perfettamente funzionante. Paolo Gero- 
nazzo, via Don Formentini, 21010 Bosco Montegrino 
(VA), tel. 0332-589739 


Studente informatica (4° anno) cerca serie ditte o pri- 
vati per assemblaggio progetti elettronici a domicilio. 
Massima serietà e buona esperienza. Telefonare sa- 
bato o domenica sera. Paolo Geronazzo, via Don 
Formentini, 21010 Bosco Montegrino (VA) tel. 0332- 
589739 


Vendo VIC 20 più unità cassette C2N ottimo stato. 
Solo zona Viterbo o Perugia. Alessandro Cecchetti, 
via S. Lorenzo 43, 01100 Viterbo, tel. 0761-37454 


Vendo ZXB1 costituito da ZX80+slow+8 K ROM, 
comprato gennaio '83, L. 150000. Massimo Zezza 
via Quarenghi 45, 20151 Milano, tel. 02-3535489 


Vendo TI 99/4A con Space invaders, manipolatori 
cavi collegamento 2 mesi di vita, perfette condizioni, 
L. 510000 trattabili causa passaggio sistema superio- 
re. Telefonare ore pasti. Alberto Lo Paro, via del Po- 
polo 2, 19100 La Spezia, tel. 0187-512198 


Vendo ZX81+ZX printer+16 K Sinclair+3 rotoli carta 
a L. 520000. Acquistato ottobre '82 usato poco. Re- 
galo programmi pagati L. 50000. Tel. sabato domeni- 
ca. Paolo Nappo, via Vernilli Ciommi, 80047 S. Giu- 
seppe Ves.no (NA), tel. 081-8282981 


Vendo VIC 20+registratore C2N+superespansione 
(3 K+grafica)+3 K+ 8 K+supercabinet con 6 slots 
(per 6 cartridges) + 2 games + programmers'aid + 
potente word processor “Heswriter" su ROM. Il tutto 
(del valore di 1700000) a L. 1300000 trattabili. Paolo 
Barberis, via Indipendenza 57, 19020 Ceparana 
(SP), tel. 0187-933620 


Cerco espansione di memoria collegabile diretta- 
mente al PET 2001 Commodore oppure schema do- 
cumentato per espansione diretta su circuito stampa- 
to. Telefonare al martedì mattina. Francesco Ventu- 
relli, via Verdi 252, 41059 Zocca (MO), tel. 059- 
987909 


Vendo VIC 20 completo espansione alta 
risoluzione+3 K RAM ed espansione 16 K 
RAM+decine di programmi di giochi, utilities, inge- 
gneria e matematica. Eventualmente anche separati. 
Telefonare la sera. Daniele Azzaroli, Dorsoduro 203, 
30123 Venezia, tel. 041-35675 


Vendo tutte le schede del micro Nuova Elettronica a 
prezzo molto basso. È disponibile anche già montato 
e nuovo completo di software. Telefonare a Salvato- 
re Ruggiero, via Mich. Schipa 61, 80122 Napoli, tel. 
081-665633 


ICCOLI ANNUNC 


PERSONAL 
SOFTWARE 


Sei un lettore di PERSONAL-SOFTWARE e vuoi entrare in contatto con tutti gli altri lettori per comperare, cambiare o ! 
1 vendere software? Spedisci questo tagliando a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 


l I | RF Pi gl (0a CUT LOR 
l Jide PLL 
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i I O BI DL SR 

(Pn E TS i esi HATE AR | | 89 DES A FEST 

i IERI l (LAY TAP SI i OI 

Nome Cognome 

Via 

Città 


Servizio programmi 


Per alcuni dei programmi pubblicati, Personal Software mette a disposizione dischi e 
nastri già registrati, realizzati in collaborazione con l’autore. Potete ottenerli in contras- 
segno, pagando direttamente al postino la cifra indicata, spedendo il tagliando pubbli- 
cato in fondo alla pagina. 


N. Sistema Programmi Supporto pubblicato in Prezzo 
Personal Software n. 
1. Applell+ La carta del cielo floppy 5” 3 pag. 83 30.000 
Collisione DOS 3.3 3 pag. 93 Ù 
2 TRS-80 mod.| Backgammon floppy 5” 3 pag. 89 25.000 
DOS 2.3 
3. PET/CBM 3032/4032 Editor/Assembler in Basic. floppy 5” 2 pag. 33 40.000 
3032/4032+3040/4040 
4. Applell+ Interi in precisione floppy 5" 4 pag. 17 40.000 
multipla DOS 3.3 
5 PET/CBM 3032/4032 Gioco del calcio floppy 5" 4 pag. 67 25.000 
3032/4032+3040/4040 
6 Applell+ Pretty Printer floppy 5” 
Shape Table DOS 3.3 5 pag. 27 30.000 
Spedire in busta Inviatemi i seguenti dischi di Personal Software 
chiusa a 
n=- > 5 A = 
PERSONAL SOFTWARE SCR 
Servizio Programmi per untotale di lire = = = 
Via Rosellini 12 che pagherò al postino alla consegna del pacco. 
20124 Milano 


Cognome e nome 
Indirizzo 
Cap., Località 


Firma 
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CHI MI AIUTERA’” 
A FAR DIVENTARE GRANDE 
LA MIA PICCOLA AZIENDA? 


IL PERSONAL COMPUTER IB 
IL TUO PICCOLO GRANDE AMICO. 


Crescere da soli non è facile: quante volte 
hai desiderato l’aiuto di un amico? 

Ora l’hai trovato: è il Personal Computer 
IBM. 

Vedrai, imparerai da solo a dialogare con 
lui in poche ore. Darà sempre una risposta 
immediata ad ogni tua richiesta e, se vuoi, ti 
collegherà anche ad altri elaboratori. 
Potrà aiutarti in tutte le tue attività. 

Il Personal Computer IBM, infatti, controlla 


tempo. Può fare di tutto: riceve dati, analiz- 
za, calcola, registra, stampa e, grazie alla 
sua potente memoria e ai minidischi, ti con- 
sente di gestire un’infinità di informazioni. 
Ti sarà più facile formulare preventivi e of 
ferte, senza perdere d'occhio il tuo margine 
di profitto. 
Ogni cosa s 
così. 

Vuoi conoscerlo megli 


arà più semplice, conun amico 


0? Rivolgiti ai con- 


cessionari IBM. 


Avrai tutte le informazioni necessarie. 


tutti quei lavori che, in un momento di cre- 
scita, rischierebbero di occuparti troppo 


IBM Italia canti 
SI zione Prodotti 
Dista ftana 
Distribuzione Prodotti 


(tem 


bai 
SUL 


una 0 due unità minidi- 
periferiche. Unità di 
plementari per unità periferi $ 6 Ù ‘ del sistema: 21 Mbyte inlinea)-8 attacchi sup- 
AR ay periferiche. Tastiera: ultrapiatta - contiene un microprocessore. Unità video: visualizza 25 righe di 80 carat- 
la matrice di 7x9 punti. Stampante: grafica bidirezionale - velocità massima 80 cps -12 tipi di caratteri - densità di stampa 


- RAM da 64 a 640 Kbyte - 


Unità di elaborazione: contiene un microprocessore a 16 bit - ROM di 40 Kbyte 
-5 o 8 attacchi per unità 


RR una unità minidischi e un disco fisso da 10 Mbyte - architettura aperta 
pansione: contiene uno 0 due dischi fissi da 10 Mbyte ciascuno (capacità massima 


di A 6 È A . 
la 40 a 132 caratteri perriga. Sistema operativo DOS: contiene avanzate funzioni logiche per un’alta flessibilità operativa e una 


grande facilità d’uso. 

IP. ; i 

n a n pra nov i rete di Concessionari IBM, costituita a questo scopo da una nuova società 
3M Italia Dis ion d S.r.l. Per acquisti superiori alle 20 unità i ri i filiali ì ioni 

sugli indirizzi dei punti di vendita telefona al 09/21752360 oppure 06/54801068 ila lit 


GGK 


Apple 
continua af crescere. 


Response 


Apple ha introdotto il concetto di personal in tutto il mondo. E in tutto il mondo 
Apple cresce. Cresce anche in Italia dove la Iret, che lo importa e ne cura 
l'assistenza, può oggi annunciare l’esistenza di una rete di vendita di oltre 300 
centri specializzati che fanno di Apple il loro cavallo di battaglia. ì DI 
E naturalmente crescono le vendite di Apple, perché il personal computing sini : III ill | | | | Il 
conquista piccole aziende, professionisti e privati. È facile prevedere quindi che — i | 
Apple continuerà a crescere, anche perché l’unica cosa di Apple che non 
cresce sono i prezzi. (Chiedete l'offerta speciale ai nostri rivenditori). 


@fappic Il Personal ante 


Via Bovio, 5 - 42100 FREE. Tel. 0522/32643 - TLX 530173 IRETRE 


